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This  Validation  Summary  Report  summarizes  the  results  and 
conclusions  of  validation  testing  performed  on  the  VAX  Ada 
VI. 3  using  Version  1.8  of  the  *Ada  Compiler  Validation 
Capability  (ACVC) . 


The  validation  process  includes  submitting  a  suite  of 
standardized  tests  (the  ACVC)  as  inputs  to  an  Ada  compiler  and 
evaluating  the  results.  The  purpose  is  to  ensure  conformance 
of  the  computer  to  ANSI/MIL-STD-1815A  Ada  by  testing  that  it 
properly  implements  legal  language  constructs  and  that  it 
identifies  and  rejects  illegal  language  constructs.  The 
testing  also  identifies  behavior  that  is  implementation 
dependent  but  permitted  by  ANSI/MIL-STD-1815A.  Six  classes  of 
tests  are  used.  These  tests  are  designed  to  perform  checks  at 
compile  time,  at  link  time,  or  during  execution. 

On-site  testing  was  performed  3  Nov  1986  through  7  Nov  1986 
at  Nashua,  NH  under  the  auspices  of  the  Federal  Software 
Management  Support  Center,  according  to  Ada  Validation 
Organization  policies  and  procedures <  -  The  VAX  Ada  VI. 3  is 
hosted  on  the  VAX  series  operating  under  VAX/VMS  V4.4  and  the 
MicroVMS ,  V4 . 4 . 


The  results  of  validation  are  summarized  in  the  following 
table: 


RESULT 

A 

B 

TEST 

C 

CLASS 

.  _D_ 

E 

L 

TOTAL 

Passed 

69 

865 

1329 

17 

13 

46 

2339 

Failed 

0 

0 

0 

0 

0 

0 

0 

Inapplicable 

0 

2 

39 

0 

0 

0 

41 

Withdrawn 

0 

7 

12 

0 

0 

0 

19 

TOTAL 

69 

874 

1380 

17 

13 

46 

2399 

♦Ada  is  a  registered  trademark  of  the  United  States  Government 
(Ada  Joint  Program  Office) . 


There  were  19  withdrawn  tests  in  ACVC  Version  1.8  at  the  time 
of  this  validation  attempt.  A  list  of  these  test  appears  in 
Appendix  D. 

Some  tests  demonstrate  that  some  language  features  are  or  are 
not  supported  by  an  implementation.  For  this  implementation, 
the  test  determined  the  following. 

.  SHORT_INTEGER  is  supported. 

.  LONG_INTEGER  is  not  supported. 

.  SHORT_FLOAT  is  not  supported. 

.  LONG_FLOAT  iti  supported. 

.  The  additional  predefined  types,  LONG_LONG_FLOAT 
and  SHORT_SHORT_INTEGER  are  supported. 

.  Representation  specifications  for  noncontiguous 
enumeration  representations  are  supported. 

.  The  'SIZE  clause  is  supported. 

.  The  ' STORAGE_S I Z E  clause  is  supported. 

.  The  'SMALL  clause  is  supported. 

.  Generic  unit  specifications  and  bodies  can  be  compiled 
in  separate  compilations. 

.  Pragma  INLINE  is  supported  for  procedures.  Pragma 
INLINE  is  supported  for  functions. 

.  The  package  SYSTEM  is  used  by  package  TEXT_IO. 

.  Mode  IN_FILE  is  supported  for  sequential  I/O. 

.  Mode  OUT_FILE  is  supported  for  sequential  I/O. 

.  Instantiation  of  the  package  SEQUENTIAL_IO  with 
unconstrained  array  types  is  supported. 

.  Instantiation  of  the  package  SEQUENTIAL_IO  with 
unconstrained  record  types  with  discriminants  is 
supported. 
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CHAPTER  1 


INTRODUCTION 

This  Validation  Summary  Report  describes  the  extent  to  which  a 
specific  Ada  compiler  conforms  to  ANSI/MIL-STD-1815A.  This 
report  explains  all  technical  terms  used  within  it  and 
thoroughly  reports  the  results  of  testing  this  compiler  using 
the  Ada  Compiler  Validation  Capability  (ACVC) .  An  Ada  compiler 
must  be  implemented  according  to  the  Ada  Standard 
(ANSI/MIL-STD-1815A) .  Any  implementation-dependent  features 
must  conform  to  the  requirements  of  the  Ada  Standard.  The 
entire  Ada  Standard  must  be  implemented,  and  nothing  can  be 
implemented  that  is  not  in  the  Standard. 

Even  though  all.. validated  Ada  compilers  conform  to 
ANSI/MIL-STD-1815A,  it  must  be  understood  that  some  differences 
do  exist  between  implementations.  The  Ada  Standard  permits 
some  implementation  dependencies — for  example,  the  maximum 
length  of  identifiers  or  the  maximum  values  of  integer  types. 
Other  differences  between  compilers  result  from  limitations 
imposed  on  a  compiler  by  the  operating  systems  and  by  the 
hardware.  All  of  the  dependencies  demonstrated  during  the 
process  of  testing  this  compiler  are  given  in  the  report. 

Validation  Summary  Reports  are  written  according  to  a 
standardized  format.  The  report  for  several  different 
compilers  may,  therefore,  be  easily  compared.  The  information 
in  this  report  is  derived  from  the  test  results  produced  during 
validation  testing.  Additional  testing  information  is  given  in 
section  3.7  and  states  problems  and  details  which  are  unique 
for  a  specific  compiler.  The  format  of  a  validation  report 
limits  variance  between  reports,  enhances  readability  of  the 
report,  and  minimizes  the  delay  between  the  completion  of 
validation  testing  and  the  publication  of  the  report. 


1.1  PURPOSE  OF  THIS  VALIDATION  SUMMARY  REPORT 

The  Validation  Summary  Report  documents  the  results  of  the 
validation  testing  performed  on  an  Ada  compiler.  Testing  was 
carried  out  for  the  following  purposes: 
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.  To  attempt  to  identify  any  language  constructs 

supported  by  the  compiler  that  do  not  conform  to  *-he 
Ada  Standard 

.  To  attempt  to  identify  any  unsupported  language 
constructs  required  by  the  Ada  Standard 

.  To  determine  that  the  implementation-dependent  behavior 
is  allowed  by  the  Ada  Standard 

Testing  of  this  compiler  was  conducted  under  the  supervision  of 
the  Federal  Software  Management  Support  Center  according  to 
policies  and  procedures  established  by  the  Ada  Validation 
Organization  (AVO) .  Testing  was  conducted  from  3  Nov  1986 
through  7  Nov  1986  at  Nashua,  NH. 

1.2  USE  OF  THIS  VALIDATION  SUMMARY  REPORT 

Consistent  with  the  national  laws  of  the  originating  country, 
the  Ada  Validation  organization  may  make  full  and  free  public 
disclosure  of  this  report.  In  the  United  States,  this  is 
provided  in  accordance  with  the  “Freedom  of  Information  Act"  (5 
U.S.C.  #552).  The  results  of  this  validation  apply  only  to  the 
computers,  operating  systems,  and  compiler  versions  identified 
in  this  report. 

The  organizations  represented  on  the  signature  page  of  this 
report  do  not  represent  or  warrant  that  all  statements  set 
forth  in  this  report  are  accurate  and  complete,  or  that  the 
subject  compiler  has  no  nonconformances  to  ANSI/MIL-STD-1815A 
other  than  those  presented.  Copies  of  this  report  are 
available  to  the  public  from: 

Ada  Information  Clearinghouse 
Ada  Joint  Program  Office 
OUSDRE 

The  Pentagon,  Rm  3D-139 
1211  S.  Fern,  C-107 
Washington,  DC  20301-3081 

or  from  the  Ada  Validation  Facility  (AVF)  listed  below. 

Questions  regarding  this  report  or  the  validation  tests  should 
be  directed  to: 


Ada  Validation  Organization 
Institute  for  Defense  Analyses 
1801  North  Beauregard 
Alexandria  VA  22311 
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or  to: 


Ada  Validation  Facility 

Federal  Software  Management  Support  Center 
5203  Leesburg  Pike 
suite  1100 

Falls  Church,  VA  22041-3467 
1.3  RELATED  DOCUMENTS 

1 .  Reference  Manual  for  the  Ada  Programming 
Language.  ANSI/MIL-STD-1815A,  FEB  1983. 

2 .  Ada  Validation  Organization:  Policies  and 
Procedures .  MT'T'RE  Corporation,  JUN  1982,  PB 
83-110601. 

3 .  Ada  Compiler  Validation  Capability 
Implementers 1  Guide.  SofTech,  Inc.,  DEC  1984. 


1.4  DEFINITION  OF  TERMS 


ACVC 


Ada  Standard 

Applicant 

AVF 


AVO 


Compiler 


Failed  test 


The  Ada  Compiler  Validation  Capability.  A  set 
of  programs  that  evaluates  the  conformance  of  a 
compiler  to  the  Ada  language  specification, 

ANS I/MI L-STD- 1 8 1 5 A . 

ANSI/MIL-STD-1815A,  February  1983. 

The  agency  requesting  validation. 

Ada  Validation  Facility.  The  Federal  Software 
Management  Support  Center.  In  the  context  of 
this  report,  the  AVF  is  responsible  for 
conducting  compiler  validations  according  to 
established  policies  and  procedures. 

The  Ada  Validation  Organization.  In  the 
content  of  this  report,  the  AVO  is  responsible 
for  setting  policies  and  procedures  for 
compiler  validations. 

A  processor  for  the  Ada  language.  In  the 
context  of  this  report,  a  compiler  is  any 
language  processor,  including  cross-compilers, 
translators,  and  interpreters. 

A  test  for  which  the  compiler  generates  a 
result  that  demonstrates  nonconformance  to  the 
Ada  Standard. 


Host 


The  computer  on  which  the  compiler  resides. 
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Inapplicable  A  test  that  uses  features  of  the  la.nguaoe  that 

a  test  compiler  is  not  required  to  support  or 
may  legitimately  support  in  a  ay  othex  than 
the  one  expected  by  the  test. 

Passed  test  A  test  for  which  a  compiler  generates  the 

expected  result. 

Target  The  computer  for  which  a  compiler  generates 

code. 

Test  A  program  that  evaluates  the  conformance  of  a 

compiler  to  a  language  specification.  In  the 
context  of  this  report,  the  term  is  used  to 
designate  a  single  ACVC  test.  The  text  of  a 
program  may  be  th^  text  of  one  or  more 
compilations 

A  test  which  has  been  found  to  be  inaccurate  in 
checking  conformance  to  the  Ada  language 
specification.  A  withdrawn  test  has  an  invalid 
test  objective,  fails  to  meet  its  test 
objective,  or  contains  illegal  or  erroneous  use 
of  the  language. 

1.5  ACVC  TEST  CLASSES 

Conformance  to  ANSI/MIL-STD-1815A  is  measured  using  the  Ada 
Compiler  Validation  Capability  (ACVC) .  The  ACVC  contains  both 
legal  and  illegal  Ada  program  structured  into  six  test  classes: 
A,  B,  C,  D,  E,  and  L.  The  first  letter  of  a  test  name 
identifies  the  class  to  which  it  belongs.  Legal  programs  are 
compiled,  linked,  and  executed  while  illegal  programs  are  only 
compiled.  Special  program  units  ire  used  to  report  the  results 
of  the  legal  programs. 

Class  A  tests  check  that  legal  Ada  programs  can  be  successfully 
compiled  and  executed.  (However,  no  checks  are  performed 
during  execution  to  see  if  the  test  objective  has  been  met.) 

For  example,  a  Class  A  test  checks  that  reserved  words  of 
another  language  (other  than  those  already  reserved  in  the  Ada 
language)  are  not  treated  as  reserved  words  by  an  Ada 
compiler.  A  Class  A  test  is  passed  if  no  errors  are  detected 
at  compile  time  and  the  program  executes  to  produce  a  message 
indicating  that  it  has  passed. 


Withdrawn 

test 


W  V 


Class  B  tests  check  that  a  compiler  detects  illegal  language 
usage.  Class  B  tests  are  not  executable.  Each  test  in  this 
class  is  compiled  and  the  resulting  compilation  listing  is 
examined  to  verify  that  every  syntactical  or  semantic  error  in 
the  test  is  detected.  A  Class  B  test  is  passed  if  every 
illegal  construct  that  it  contains  is  detected  by  the  compiler. 

Class  C  tests  check  that  legal  Ada  programs  can  be  correctly 
compiled  and  executed.  Each  Class  C  test  is  self-checking  and 
produces  a  PASSED,  FAILED,  or  NON-APPLI CABLE  message  indicating 
the  result  when  it  is  executed. 

Cl  a  nr.  D  tests  check  the  compilation  and  execution  capacities  of 
a  compiler.  Since  there  are  no  reguirements  placed  on  a 
compiler  by  the  Ada  Standard  for  some  parameters  (e.g. ,  the 
number  of  identifiers  permitted  in  a  compilation,  the  number  of 
units  in  a  library,  and  the  number  of  nested  loops  in  a 
subprogram  body) ,  a  compiler  may  refuse  to  compile  a  Class  D 
test  and  still  be  a  conforming  compiler.  Therefore,  if  a  Class 
D  test  fails  to  compile  because  the  capacity  of  the  compiler  is 
exceeded,  the  test  is  classified  as  inapplicable.  If  a  Class  D 
test  compiles  successfully,  it  is  self-checking  and  produces  a 
PASSED  or  FAILED  message  during  execution. 

Each  Class  E  test  is  self-checking  and  produces  a 
NOT-APPLICABLE,  PASSED  or  FAILED  message  when  it  is  compiled 
and  executed.  However,  the  Ada  standard  permits  an 
implementation  to  reject  programs  containing  some  features 
addressed  by  Class  E  tests  during  compilation.  Therefore,  a 
Class  E  test  is  passed  by  a  compiler  if  it  is  compiled 
successfully  and  executes  to  produce  a  PASSED  message,  or  it  is 
rejected  by  the  compiler  for  an  allowable  reason. 

Class  L  tests  check  that  incomplete  or  illegal  Ada  programs 
involving  multiple,  separately  compiled  units  are  detected  and 
not  allowed  to  execute.  Class  L  tests  are  compiled  separately 
and  execution  is  attempted.  A  Class  L  test  passes  if  it  is 
rejected  at  link  time — that  is,  an  attempt  to  execute  the  main 
program  must  generate  an  error  message  before  any  declarations 
in  the  main  program  or  any  units  referenced  by  the  main  program 
are  elaborated. 

Two  library  units,  the  package  REPORT  and  the  procedure  CHECK_ 
FILE,  support  the  self-checking  features  of  the  executable 
tests.  The  package  REPORT  provides  the  mechanism  by  which 
executable  tests  report  results.  It  also  provides  a  set  of 
identity  functions  used  to  detect  some  compiler  optimization 
strategies  and  force  computations  to  be  made  by  the  target 
computer  instead  of  by  the  compiler  on  the  host  computer.  The 
procedure  CHECK_FILE  is  used  to  check  the  contents  of  text 
files  written  by  some  of  the  Class  C  tests  for  Chapter  14  of 
the  Ada  Standard. 


r 


The  operation  of  these  units  is  checked  by  a  set  of  executable 
test.  These  tests  produce  messages  that  are  examined  to  verify 
that  the  units  are  operating  correctly.  If  these  units  are  not 
operating  correctly,  then  the  validation  is  not  attempted. 

Some  of  the  conventions  followed  in  the  A CVC  are  intended  to 
ensure  that  the  tests  are  reasonably  portable  without 
modification.  For  example,  the  tests  make  use  of  only  the 
basic  set  of  55  characters,  contain  lines  with  a  maximum  length 
of  72  characters,  use  small  numeric  values,  and  place  features 
that  may  not  be  supported  by  all  implementations  in  separate 
tests.  However,  some  tests  contain  values  that  require  the 
test  to  be  customized  according  to  implementation-specific 
values.  The  values  used  for  this  validation  are  listed  in 
Appendix  C. 

A  compiler  must  correctly  process  each  of  the  tests  in  the 
suite  and  demonstrate  conformance  to  the  Ada  Standard  by  either 
meeting  the  pass  criteria  given  for  the  test  or  by  showing  that 
the  test  is  inapplicable  to  the  implementation.  Any  test  that 
was  determined  to  contain  an  illegal  language  construct  or  an 
erroneous  language  construct  is  withdrawn  from  the  A CVC  and 
therefore,  is  not  used  in  testing  a  compiler.  The 
nonconformant  tests  are  given  in  Appendix  D. 
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CHAPTER  2 


CONFIGURATION  INFORMATION 
CONFIGURATION  TESTED 

The  candidate  compilation  system  for  this  validation  was 
tested  under  the  following  configuration: 

Compiler:  VAX  Ada  VI. 3 

Test  Suite:  Ada  Compiler  Validation  Capability,  Version 

1.8 

Host  Computer: 

Machine (s) :  VAX-11/780,  VAX  8800  and 

VAXstation  II 

Operating  Systems:  VAX/VMS  V4.4 

MicroVMS  V4.4 

Memory  Size:  12,  32,  and  8  MB 

Target  Computer: 

Machine (s) :  VAX-11/730,  750,  780,  782, 

VAX-11/785,  8200,  8300,  8500, 
VAX  8600,  8650,  8700,  8800, 
MicroVAX  II,  VAXstation  II 


Operating  System  VAX/VMS  V4.4 

MicroVMS  V4.4 
VAXELN  V2.2 

Memory  Size:  4  -  32MB 


Communications  Network 


CONFIGURATION  INFORMATION 


2 . 2  CERTIFICATE  INFORMATION 

Base  Configuration: 

Compiler:  VAX  Ada  VI. 3 

Test  Suite:  Ada  Compiler 

1.8 

Completion  Date: 

Host  Computer: 

Machine (s) : 

Operating  System: 
Machine (s) : 
Operating  System: 


Validation  Capability,  Version 


7  Nov  1986 


VAX-11/730,  750,  780,  782,  785, 
8200,  8300,  8500,  8600,  8650, 
8700,  and  8800 
VAX/VMS,  V4.4 

MicroVAX  II,  VAXstation  II 
MicroVMS,  V4.4 


Target  Computer: 

Machine (s) :  VAX-11/730,  750,  780,  782, 

785,  8200,  8300,  8500,  8600, 
8650,  8700,  8800 

Operating  System:  VAX/VMS,  V4.4 

Machine (s) :  MicroVAX  II,  VAXstation  II 

Operating  System:  MicroVMS,  V4.4 

Machine (s) :  MicroVAX  II 

Operating  System:  VAXELN  Toolkit,  V2.2,  in 

combination  with  VAXELN  Ada, 
VI.  1 


2.3 


IMPLEMENTATION  CHARACTERISTICS 


One  of  the  purposes  of  validating  compilers  is  to  determine  the 
behavior  of  a  compiler  in  those  areas  of  the  Ada  Standard  that 
permit  implementation  to  differ.  Class  D  and  E  tests 
specifically  check  for  such  implementation  differences. 

However,  tests  in  other  classes  also  characterize  an 
implementation.  This  compiler  is  characterized  by  the 
following  interpretations  of  the  Ada  Standard: 

.  Nongraphic  characters. 

Nongraphic  characters  are  defined  in  the  ASCII 
character  set  but  are  not  permitted  in  Ada  programs, 
even  within  character  strings.  The  compiler 
correctly  recognizes  theca  characters  as  illegal  in 
Ada  compilations.  The  characters  are  not  printed  in 
the  output  listing.  (See  test  B26005A.) 

.  Capacities. 

The  compiler  correctly  processes  compilations 
containing  loop  statements  nested  to  65  levels, 
block  statements  nested  to  65  levels,  procedures 
nested  to  17  levels.  It  correctly  processes  a 
compilation  containing  723  variables  in  the  same 
declarative  part.  (See  tests  D55A03A..H,  D56001B, 
D64005E..G,  D29002K) 


CONFIGURATION  INFORMATION 

.  Universal  integer  calculations. 

An  implementation  is  allowed  to  reject  universal 
integer  calculations  having  values  that  exceed 
SYSTEM. MAX  INT.  This  implementation  does  not  reject 
such  calculations  and  processes  them  correctly. 

(See  tests  D4A002A,  D4A002B,  D4A004A,  and  D4A004B. ) 

.  Universal  real  calculations. 

When  rounding  to  interger  is  used  in  a  static 
universal  real  expression,  the  value  appears  to  be 
rounded  away  from  zero.  (See  test  C4A014A.) 


Predefined  tvpes. 

This  implementation  supports  the  additional 
predefined  types  SHORT_INTEGER,  LONG_FT/>AT,  and 
SHORT_SHORT_INTEGER  in  the  package  .iXANDARD.  (See 
test  B86001DT.) 

Based  literals. 

An  implementation  is  allowed  to  reject  a  based 
literal  with  a  value  exceeding  SYSTEM. MAX_I NT  durina 
compilation,  or  it  may  raise  NUMERI C_ERROR  during 
execution.  This  implementation  raises  NUMFRIC_ 
ERROR  during  execution.  (See  test  E24101A.) 

Array  types. 

An  implementation  is  allowed  to  raise  NUMERI C_ERROR 
for  an  array  having  a  'LENGTH  that  exceeds 
STANDARD. INTEGER' LAST  and/or  SYSTEM. MAX_INT. 

A  packed  BOOLEAN  array  having  a  'LENGTH  exceedinq 
INTEGER 'LAST  raises  NUMERI C_ERROR  when  the  array 
objects  are  declared.  (See  test  C52103X.) 

A  packed  two-dimensional  BOOLEAN  array  with  more 
than  INTEGER' LAST  components  raises  NUMERI C_ERROR 
when  the  array  type  is  declared.  (See  test 
C52104Y.) 


A  null  array  with  one  dimension  of  length  greater 
than  INTEGER 'LAST  may  raise  NUMERICJERROR  either 
when  declared  or  assigned.  Alternatively,  an 
implementation  may  accept  the  declaration.  However, 
lengths  must  match  in  array  slice  assignments.  This 
implementation  raises  NUMERIC_ERROR  when  the  array 
type  is  declared.  (See  test  E52103Y.) 

In  assigning  one-dimensional  array  types,  the  entire 
expression  appears  to  be  evaluated  before  CONSTRAINT 
ERROR  is  raised  when  checking  whether  the 
expression's  subtype  is  compatible  with  the  target's 
subtype.  In  assigning  two-dimensional  array  types, 
the  entire  expression  does  not  appear  to  be 
evaluated  before  CONSTRAINT_ERROR  is  raised  when 
checking  whether  the  expression's  subtype  is 
compatible  with  the  target's  subtype.  (See  test 
C52013A.) 

Discriminated  types. 

During  compilation,  an  implementation  is  allowed  to 
either  accept  or  reject  an  incomplete  type  with 
discriminants  that  is  used  in  an  access  type 
definition  with  a  compatible  discriminate 
constraint.  This  implementation  accepts  such 
subtype  indications  during  compilation.  (See  test 
E38104A.) 

In  assigning  record  types  with  discriminants,  the 
entire  expression  appears  to  be  evaluated  before 
CONSTRAINT_ERROR  is  raised  when  checking  whether  the 
expression's  subtype  is  compatible  with  the  target's 
subtype.  (See  test  C52013a.) 

Aggregates . 

In  the  evaluation  of  a  multi-dimensional  aggregate, 
all  choices  appear  to  be  evaluated  before  checking 
against  the  index  subtype.  (See  tests  C43207A  and 
C43207B. ) 


In  the  eval Motion  of  an  aggregate  containing 
subaggregates ,  all  choices  are  evaluated  before 
being  checked  for  identical  bounds.  (See  test 
E43212B. ) 

All  choices  are  evaluated  before  CONSTRAINT_ERROR  is 
raised  if  a  bound  in  a  nonnull  range  of  a  nonnull 
aggregate  does  not  belong  to  an  index  subtype.  (See 
test  E43211B.) 

CONFIGURATION  INFORMATION 

.  Functions. 

The  declaration  of  a  parameterless  function  with  the 
sai.ie  profile  as  an  enumeration  literal  in  the  same 
immediate  scope  is  rejected  by  the  implementation. 
(See  test  E66001D.) 

.  Representation  clauses. 

The  Ada  Standard  does  not  require  an  inplementation 
to  support  representation  clauses.  If  a 
representation  clause  is  not  supported,  then  the 
implementation  must  reject  it.  While  the  operation 
of  representation  clauses  in  not  checked  by  Version 
1.8  of  the  ACVC,  they  are  used  in  testing  other 
language  features.  Testing  indicates  that  size 
specifications  are  supported,  that  specification  of 
storage  for  a  task  activation  is  supported,  and  that 
specification  of  SMALL  for  a  fixed  point  type  is 
supported.  Enumeration  representation  clauses 
including  those  that  specify  noncontiguous  values 
appear  to  be  supported.  (See  tests  C55B16A, 

C87B62A,  C87B62B,  C87B62C,  and  BC1002A.) 

.  Generics. 

When  given  a  separately  compiled  generic  unit 
specification,  some  illegal  instantiations,  and  a 
body,  the  compiler  rejects  the  body  because  of  the 
instantiations.  (See  tests  BC3204C  and  BC3204D.) 

.  Pragmas. 

The  pragma  INLINE  is  supported  for  procedures.  The 
pragma  INLINE  is  supported  for  functions.  (See 
tests  CA3004E  and  CA3004F.) 
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Input/output, 


The  package  SEQUENTIAL_IO  can  be  instantiated  with 
unconstrained  array  types  and  record  types  with 
discriminants.  The  package  DIRECT_IO  cannot  be 
instantiated  with  unconstrained  array  types  and 
record  types  with  discriminants  without  defaults. 
(See  tests  CE2201D,  CE2201E,  and  CE2401D.) 


More  than  one  internal  file  can  be  associated  with 
each  external  file  for  sequential  I/O  for  reading 
only.  (See  tests  CE2107A..F.) 


More  than  one  internal  file  can  be  associated  with 
each  external  file  for  direct  I/O  for  reading  only. 
(See. tests  CE2107A..F.) 


An  external  file  associated  with  more  than  one 
internal  file  can  be  deleted.  (See  test  CE2110B.) 


More  than  one  internal  file  can  be  associated  with 
each  external  file  for  text  I/O  for  reading  only. 
(See  tests  CE3111A..E.) 


Dynamic  creation  and  resetting  of  a  sequential  file 
is  allowed.  (See  test  CE2210A.) 


Temporary  sequential  files  are  given  a  name. 
Temporary  direct  files  are  given  a  name.  Temporary 
files  given  names  are  not  deleted  when  they  are 
closed,  but  are  not  accessible  after  the  completion 
of  the  main  program.  (See  test  CE2108A.) 


CHAPTER  3 


TEST  INFORMATION 


3.1  TEST  RESULTS 

The  Federal  Software  Management  Support  Center  identified  2362 
of  the  2399  tests  in  Version  1.8  of  the  Ada  Compiler 
Validation  Capability  as  potentially  applicable  to  the 
validation  of  VAX  Ada  VI. 3.  Excluded  were  18  tests  with 
source  lines  that  were  too  long;  and  the  19  withdrawn  tests. 
After  they  were  processed  23  tests  were  determined  to  be 
inapplicable.  The  remaining  2339  tests  were  passed  by  the 
compiler. 

i'he  Federal  Software  Management  Support  Center  concludes  that 
the  testing  results  demonstrate  acceptable  conformance  to  the 
Ada  Standard. 

3.2  SUMMARY  OF  TEST  RESULTS  BY  CLASS 


RESULT 

A 

£ 

TEST 

C 

CLASS 

D 

E 

h 

TOTAL 

Passed 

69 

865 

1329 

17 

13 

46 

2339 

Failed 

0 

0 

0 

0 

0 

0 

0 

N/A 

0 

2 

39 

0 

0 

0 

41 

withdrawn 

0 

7 

12 

0 

0 

0 

19 

TOTAL 

69 

874 

1380 

17 

13 

46 

2399 

TEST  INFORMATION 


3.3  SUMMARY  OF  TEST  RESULTS  BY  CHAPTER 


RESULT 


2  3  4  5  6  7  8  9  10  11  12  14  Total 


Passed 

98 

322 

420 

244 

161 

97 

138 

261 

130 

32 

218 

218 

2339 

Failed 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

N/A 

18 

3 

0 

3 

0 

0 

1 

1 

0 

0 

0 

15 

41 

W/D 

0 

5 

5 

0 

0 

1 

1 

2 

4 

0 

1 

0 

19 

iO'i’AL 

116 

330 

425 

247 

161 

98 

140 

264 

134 

32 

219 

233 

2399 

3.4  WITHDRAWN  TESTS 

The  following 

tests  have  been 

withdrawn 

,  from 

the 

i  ACVC  Version 

1.8: 


C32114A 

B33203C 

C34018A 

C35904A 


B37401A 

C41404A 

B45116A 

C48008A 


B49006A 

B4A010C 

B74101B 

C87B50A 


C92005A 
C940ACA 
CA3005A. .D 
BC3204C 


See  Appendix  D  for  the  rationale  for  withdrawing  these  tests. 
3.5  INAPPLICABLE  TESTS 


Some  tests  do  not  apply  to  all  compilers  because  they  make  use 
of  features  that  a  compiler  is  not  required  by  the  Ada  Standard 
to  support.  Others  may  depend  on  the  result  of  another  test 
that  is  either  inapplicable  or  withdrawn.  For  this  validation 
attempt,  41  tests  were  inapplicable  for  the  reasons  indicated: 

.  C96005B  -  there  are  no  out-of-range  values  for 
type  DURATION 

.  CE2107B,  CE2107C,  CE2107D,  CE2107E,  CE2111D 
CE3111B,  CE3111C,  CE3111D,  CE3111E,  CE3114B 
CE2110B 


-  with  default  open/create  options  (no  FORM 
string) ,  VAX  Ada  allows  more  than  one  internal 
file  to  be  associated  with  the  same  external  file 
for  mode  IN_FILE  only  (multiple  readers)  ,  but 
does  not  allow  more  than  one  association  for  OUT 
_FILE  or  INOUT_FILE  in  combination  with  mode  IN 
_FILE  or  another  mode  OUT_FILE  (mixed  readers  and 
writers  or  multiple  writers) . 
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CE3115A  -  VAX  Ada  allows  resetting  of  shared 

files,  but  an  implementation  restriction 
does  not  allow  the  mode  of  a  file  to  be 
changed  from  IN_FILE  to  either  INOUT 
_FILE  or  OUT_FILE  (an  amplification  of 
accessing  privileges  while  the  external 
file  is  being  accessed) .  Thus  CE3115A 
does  not  apply. 

CE2102D,  CE2102I,  CE2111H  -  the  creation  of  a  file 
of  mode  IN_FILE  is  not  allowed 

CE24113H. . C24113Y  -  source  lines  exceed  the 
limit  of  120  characters 

B52004D,  B55B09C,  C34001E,  C55B07A  - 

LONG_INTEGER  is  not  supported 

C34001F,  C35702A  - 

SH0RT_FL0AT  is  not  supported 

C86001F  -  TEXT_I0  uses  the  predefined  package 

SYSTEM,  which  is  made  obsolete  by  the 
user  defined  package  SYSTEM 


3 . 6  SPLIT  TESTS 


If  one  or  more  errors  do  not  appear  to  have  been  detected  in  a 
Class  B  test  because  of  compiler  error  recovery,  then  the  test 
in  split  into  a  set  of  smaller  tests  that  contain  the 
undetected  errors.  There  were  no  split  tests  required  for  this 
implementation . 

3.7  ADDITIONAL  TESTING  INFORMATION 

3.7.1  Prevalidation 

Prior  to  validation,  sets  of  test  results  for  ACVC  Version  1.8 
produced  by  VAX  Ada  VI. 3  were  submitted  to  the  Federal 
Software  Management  Support  Center  by  the  applicant  for 
pre-validation  review.  Analysis  of  these  results  demonstrated 
that  the  compiler  successfully  passed  all  applicable  tests. 

The  specific  configurations  submitted  for  the  pre-validation 
review  were  as  follows: 


Host  Target 


Processor 

Oo.  Svs. 

Processor 

Oo.  Svs 

VAX-11/780 

VAX/VMS 

VAX-11/730 

VAX/VMS 

VAX-11/780 

VAX/VMS 

VAX-11/780 

VAX/VMS 

VAX-11/780 

VAX/VMS 

VAX-11/782 

VAX/VMS 

VAX-11/780 

VAX/VMS 

VAX  8300 

VAX/VMS 

VAX-11/780 

VAX/VMS 

VAX  8500 

VAX/VMS 

VAX-11/780 

VAX/VMS 

VAX  8600 

VAX/VMS 

VAX-11/780 

VAX/ VMS 

VAX  8650 

VAX/VMS 

VAXstation  II 

MicroVMS 

VAX-11/780 

VAX/VMS 

VAXstation  II 

MicroVMS 

MicroVAX  II 

VAXELN 

The  VAX-11/782  results  were  compared  against  the  VAX-11/730, 
780,  8300,  8500,  8600  and  the  8650  and  found  to  be  equivalent. 

The  results  from  the  Vax-11/780  were  compared  against  the 
MicroVAX  II,  730,  782,  8300,  8500,  8600,  8650  and  780  and  found 
to  be  equivalent. 

The  results  produced  by  VAX  Ada  were  the  same  for  all  tested 
members  of  the  VAX  family — for  those  using  VMS,  MicroVMS,  or 
VAXELN. 
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3.7.2  Test  Method 


A  test  magnetic  tape  containing  ACVC  Version  1.8  was  taken 
on-site  by  the  validation  team.  This  magnetic  tape  contained 
all  tests  applicable  to  this  validation  as  well  as  all  tests 
inapplicable  to  this  validation  except  for  any  Class  C  tests 
that  require  floating-point  precision  exceeding  the  maximum 
value  supported  by  the  implementation.  Tests  that  were 
withdrawn  from  ACVC  Version  1.8  were  not  run.  Tests  that  make 
use  of  values  that  are  specific  to  an  implementation  were 
customized  before  being  written  to  the  magnetic  tape. 

The  test  tape  was  written  in  VAX  BACKUP  format  and  was  loaded 
to  disk  using  Digital  Equipment  Corp.  standard  utility 
routines . 

Once  all  tests  had  been  loaded  to  disk,  processing  was  begun 
using  command  scripts  provided  by  Digital  Equipment  Corp. 

The  validation  was  executed  in  batch  control  mode  with  the 
files  organized  by  chapter  and  class  to  allow  the  tests  to  be 
run  independently  and  in  parallel. 

A  new  compilation  library  was  created  and  initialized  with  all 
units  contained  in  the  library  given  the  logical  name 
ADA$ PREDEFINED.  The  startup  control  file  established  the  newly 
created  library  as  the  current  compilation  library  and  then 
compiled  REPORT  and  CHECK_FILE  into  that  library. 

The  prevalidation  results  were  verified  on-site.  The  various 
tests  results  from  the  prevalidation  execution  were  captured  on 
disk  and  used  to  compare  against  the  on-site  results  using 
"DIF",  a  difference  utility. 

The  OPTIMIZE  option  was  used  to  produce  the  compiled  code. 

The  following  configurations  were  tested  on-site: 

Host  Op.  Svs .  Target  Op.  Svs . 

VAX  8800  VAX/VMS  VAX- 11/7 50  VAX/VMS 

VAX-11/785 
VAX  8200 
VAX  8700 
VAX  8800 

MicroVAX  II  MicroVMS 

MicroVAX  II  VAXELN 

VAXstation  II  MicroVMS  VAXstation  II  MicroVMS 


3.7.3  Test  Site 

The  validation  team  arrived  at  Nashua,  NH  on  3  Nov  1986  and 
departed  after  testing  was  completed  on  7  Nov  1986. 
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COMPLIANCE  STATEMENT 
Compliance  Statement 


Base  Configuration: 

Compiler:  VAX  Ada  Version  1.3 

Test  Suite:  Ada  Compiler  Validation  Capability,  Version  VI. 8 
Host  Computers: 

Machines: 

VAX-11/730,  VAX-11/750,  VAX-11/780,  VAX-11/782, 
VAX-11/785,  VAX  8200,  VAX  8300,  VAX  8500, 

VAX  8600,  VAX  8650,  VAX  8700,  and  VAX  8800. 

Operating  System: 

VAX/VMS,  Version  4.4 

Machines : 

MicroVAX  II,  and 

VAXstation  II. 

Operating  System: 

MieroVMS,  Version  4.4 

Target  Computers  (same  as  host  plus  VAXELN ) : 

Machines: 

VAX-11/730,  VAX-1 t/750,  VAX-11/780,  VAX-11/782, 
VAX-11/785,  VAX  8200,  VAX  8300,  VAX  B500, 

VAX  8600,  VAX  8650,  VAX  8700,  and  VAX  8800. 

Operating  System: 

VAX/VMS,  Version  4.4 

Machines: 

MicroVAX  II,  and 

VAXstation  II. 

Operating  System: 

MieroVMS,  Version  4.4 

Machines: 

MicroVAX  II 
Operating  System: 

VAXELN  Toolkit,  Version  2.2,  in  combination  with 
VAXELN  Ada,  Version  1.1. 
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COMPLIANCE  STATEMENT 


Digital  Equipment  Corporation  has  made  no  deliberate  extensions  to 
the  Ada  language  standard. 


Digital  Equipment  Corporation  agrees  to  public  disclosure  of  this 
report. 


Digital  Equipment  Corporation  agrees  to  continue  to  comply  with  the 
Ada  trademark  policy,  as  defined  by  the  Ada  Joint  Program  Office. 


(\'C 


6  October  1986 


Charles  Z.  Mitchell 
VAX  Ada  Project  Leader 
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APPENDIX  B 


APPENDIX  F  OF  THE  ADA  STANDARD 


The  only  allowed  implementation  dependencies  correspond  to 
implementation-dependent  pragmas,  to  certain  machine-dependent 
conventions  as  mentioned  in  chapter  13  of  MIL-STD-1815A,  and  to 
certain  allowed  restrictions  on  representation  classes.  The 
implementation-dependent  characteristics  are  described  in  the 
following  sections  which  discuss  topics  one  through  eight  as  stated 
in  Appendix  F  of  the  Ada  Language  Reference  manual 
( ANSI/MIL-STD-1815A) .  Two  other  sections,  package  STANDARD  and  file 
naming  conventions,  are  also  included  in  this  appendix. 

Portions  of  this  section  refer  to  the  following  attachments: 

1.  Attachment  1  -  Implementation-Dependent  Pragmas 

2.  Attachment  2  -  VAX  Ada  Appendix  F 


(1)  Implementation-Dependent  Pragmas 

See  Attachment  1 . 

(2)  Implementation-Dependent  Attributes 


Name 

JXE1 

P ' AST_ENTRY 

The  value  of  this  attribute 
SYSTEM . AST_HANDLER . 

is 

of 

type 

P'  BIT 

The  value  of  this  attribute 
universal_integer . 

is 

of 

type 

P'MACHINE_SIZE 

The  value  of  this  attribute 
universal_integer . 

is 

of 

type 

B-l 


I 

I 


nnranrvni 


uwiMuunu^WJiJMiuiM  WMiuiium»ii»iiiif«imi»imrnwirnini»i 


APPENDIX  F  OF  THE  ADA  STANDARD 


of  type 
of  type 

(3)  Package  SYSTEM 

See  Attachment  2,  Section  F.3. 

(4)  Representation  Clause  Restrictions 

Attachment  2,  Section  F.4. 

(5)  Conventions 

See  Attachment  2,  Section  F.5. 


P ' NULL_PARAMETER  The  value  of  this  attribute  is 

P. 

P ' TYPE_CLASS  The  value  of  this  attribute  is 

SYSTEM. TYPE  CLASS. 


(6)  Address  Clauses 

See  Attachment  2,  Section  F.6. 


(7)  Unchecked  Conversions 

VAX  Ada  supports  the  generic  function  UNCHECKED_CONVERSION 
with  the  following  restrictions  on  the  class  of  types 
involved; 

1.  The  actual  subtype  corresponding  to  the  formal  type 

TARGET  must  not  be  an  unconstrained  array  type. 

2.  The  actual  subtype  corresponding  to  the  formal  type 

TARGET  must  not  be  an  unconstrained  type  with 
discriminants . 


(8)  Input-Output  Packages 

SEQUENTIAL_IO  Package 

SEQUENTIAL  10  can  be  instantiated  with  any  file 
type,  including  an  unconstrained  array  type  or  an 
unconstrained  record  type.  However,  input-output 
for  access  types  is  erroneous. 
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VAX  Ada  provides  full  support  for  SEQUENTIAL_IO, 

with  the  following  restrictions  and  clarifications: 

1.  VAX  Ada  supports  modes  IN_FILE  and  OUT_FILE  for 

sequential  input-output.  However,  VAX  Ada  does 
not  allow  the  creation  of  a  file  of  mode 

IN_FILE . 

2.  More  than  one  internal  file  can  be  associated 

with  the  same  external  file.  However,  with 

default  FORM  strings,  this  is  only  allowed  when 
all  internal  files  have  mode  IN_FILE  (multiple 
readers).  If  one  or  more  internal  files  have 
mode  OUT_FTLE  (mixed  readers  and  writers  or 
multiple  writers),  then  sharing  can  only  be 
achieved  using  FORM  strings. 

3.  VAX  Ada  supports  deletion  of  an  external  file 

which  is  associated  with  more  than  one  internal 
file.  In  this  case,  the  external  file  becomes 
immediately  unavailable  for  any  new 
associations,  but  the  current  associations  are 
not  affected;  the  external  file  is  actually 
deleted  after  the  last  association  has  been 
broken. 

4.  VAX  Ada  allows  resetting  of  shared  files,  but  an 
implementation  restriction  does  not  allow  the 
mode  of  a  file  to  be  changed  from  INFILE  to 
OUT_FILE  (an  amplification  of  accessing 
privileges  while  the  external  file  is  being 
accessed) . 


DIRECT_IO  Package 

type  CNT  is  range  0  ..  2147483647; 

TEXT_I0  Package 

type  CNT  is  range  0  ..  2147483647; 

subtype  FIELD  is  INTEGER  range  0  ..  2147483647; 

LOW  LEVEL  10 


Low-level  input-output  is  not  provided. 


APPENDIX  F  OF  THE  ADA  STANDARD 


(9)  Package  STANDARD 

type  INTEGER  is  range  -2147483648  ..  2147483647; 
type  SHORT_INTEGER  is  range  -32768  ..  32767; 
type  SHORT_SHORT_INTEGER  is  range  -128  ..  127; 

—  type  LONG_INTEGER  is  not  supported 

type  FLOAT  is  digits  6; 

type  LONG_FLOAT  is  digits  15; 

type  LONG_LONG_FLOAT  is  digits  33; 

—  type  SHORT_FLOAT  is  not  supported 

type  DURATION  is  delta  1.0E-4 

range  -131072.0  ..  131071.9999; 


(10)  File  Names 

File  names  follow  the  conventions  and  restrictions  of*  the 
target  operating  system. 


B-4 


Attachment  1 


Implementation-Dependent 

Pragmas 


This  attachment  defines  the  pragmas  LIST.  I'  \( <E.  and  OPTIMIZE,  and 
summarizes  the  definitions  given  elsewhere  ol  the  remaining  language- 
defined  pragmas.  VAX  Ada  implementation-dependent  information 
(including  the  VAX  Ada  implementation  dependent  pragmas)  is  marked 
with  change  bars. 

The  VAX  Ada  pragma  TITLE  is  also  defined  in  this  annex 


Pragma  Meaning 

AST.ENTRY  Takes  the  simple  name  of  a  single 

entry  as  the  single  argument;  at 
most  one  AST. ENTRY  pragma 
is  allowed  for  any  given  entry. 

This  pragma  must  be  used  in 
combination  with  the  AST. ENTRY 
attribute,  and  is  only  allowed  after 
the  entry  declaration  and  in  the 
same  task  b  pe  specification  or 
single  task  as  the  entry  to  which 
it  app'ies.  This  pragma  specifies 
that  the  given  entry  may  be  used  to 
handle  a  VAX/VMS  asynchronous 
system  trap  (AST)  resulting  from  a 
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2  CONTROLLED 


3  ELABORATE 


EXPORT.  EXCEPTION 


VAX  A.  MS  system  service  ca I f .  The 
pragma  does  not  affect  nonnal  use 
of  the  entry  (see  9  12a). 


Takes  the  simple  name  of  an  access 
type  as  the  single  argument  This 
pragma  is  only  .•)!  med  immedi 
ately  within  the  declarative  part  or 
package  specificaii.  n  that  contains 
the  declaration  of  the  access  type, 
the  declaration  must  occur  before 
the  pragma.  This  pragma  is  not 
allowed  for  a  derived  type.  This 
pragma  specifies  that  automatic 
st o. age  reclamation  must  not  be 
performed  tor  objects  designated 
by  values  of  the  access  type  except 
upon  leaving  the  innermost  block 
statement,  subprogram  body,  or 
task  bod\'  that  encloses  the  access 
type  declaration,  or  alter  leaving 
the  main  program  (see  4  8). 

Takes  one  or  more  simple  names 
denoting  library  units  as  arguments. 
This  pragma  is  only  allowed  imme¬ 
diately  after  the  context  clause  of 
a  compilation  unit  (before  the  sub¬ 
sequent  library  unit  oi  secondary 
unit).  Each  argument  must  be  the 
simple  name  of  a  library  unit  men¬ 
tioned  by  the  context  clause.  This 
pragma  specifies  that  the  corre¬ 
sponding  librarv  unit  body  must  be 
elaborated  before  the  given  compi¬ 
lation  unit.  If  the  given  compilation 
unit  is  a  subunit,  the  library  unit 
body  must  be  elaborated  before  the 
body  of  the  ancestor  library  unit  of 
the  subunit  (see  10  5). 

Takes  an  internal  name  denoting  an 
exception,  and  optionally  takes  an 
external  designator  (the  name  of  a 
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VAX 'VMS  I  inker  global  symbol),  a 
form  (ADA  or  VMS),  and  a  code  (a 
static  integer  expression  that  is  in¬ 
terpreted  as  a  VAX  condition  code) 
as  arguments.  A  code  value  must 
be  specified  wlun  the  form  i<  VMS 
(the  default  if  the  form  is  not  spec¬ 
ified).  This  pragma  is  onlv  allowed 
at  the  place  of  a  declarative  item, 
and  must  apply  to  an  exception 
declared  by  an  earlier  declarative 
item  of  the  same  declarative  part 
car  package  specihcation;  it  is  not 
allowed  for  an  exception  declared 
with  a  renaming  declaration.  The 
pragma  permits  an  Ada  excep¬ 
tion  to  be  handled  by  programs 
written  in  other  VAX  languages 
(see  13. 9a. 3. 2) 

Takes  an  internal  name  denoting  a 
function,  and  optionally  takes  an 
external  designator  (the  name  of  a 
VAX/ VMS  Linker  global  symbol), 
parameter  types,  and  result  type 
as  arguments.  This  pragma  is  only- 
allowed  at  the  place  of  a  declarative 
item,  and  must  apply  to  a  function 
declared  by  an  earlier  declarative 
item  of  the  same  declarative  part 
or  package  specification.  In  the 
case  of  a  function  declared  as  a 
compilation  unit,  the  pragma  is 
only  allowed  after  the  function  dec¬ 
laration  and  before  any  subsequent 
compilation  unit.  This  pragma  is 
not  allow-ed  for  a  function  declared 
with  a  renaming  declaration,  and 
is  not  allowed  for  a  generic  func 
tion  (it  may  be  given  for  a  generic 
instantiation).  This  pragma  permits 
an  Ada  function  to  be  called  from 
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EXPORT,  OBJECT 


EXPORT,  PROCEDURE 


a  program  written  in  another  VAX 
language  (see  13.9a  1  4). 

Takes  an  internal  name  denoting 
an  object,  jnd  optionallv  *ikes  an 
evternal  designator  (the  name  of  a 
VAX  A  \lb  Linker  global  symbol) 
and  size  designator  (a  VAX/VMS 
Linker  global  symbol  whose  value 
is  the  size  in  bytes  of  the  exported 
object)  as  arguments.  This  pragma 
is  only  allowed  at  the  place  of  a 
declarative  item  at  the  outermost 
level  of  a  library  package  spc.'i 
fication  or  bodv  and  must  apply 
to  a  variable  declared  bv  an  ear¬ 
lier  declarative  item  of  the  same 
package  specification  or  body; 
the  variable  must  be  of  a  type  or 
subtype  that  has  a  constant  size 
at  compile  time.  This  pragma  is 
not  allowed  for  objects  declared 
with  a  renaming  declaration,  and 
is  not  allowed  in  a  generic  unit. 
This  pragma  permits  an  Ada  ob¬ 
ject  to  be  referred  to  by  a  routine 
written  in  another  VAX  language 
(see  13. 9a. 2. 2). 

Takes  an  internal  name  denoting 
a  procedure,  and  optionally  takes 
an  external  designator  (the  name  of 
a  VAX/VMS  Linker  global  symbol) 
and  parameter  types  as  arguments. 
This  pragma  is  only  allowed  at  the 
place  of  a  declarative  item,  and 
must  apply  to  a  procedure  declared 
by  an  earlier  declarative  item  of  the 
same  declarative  part  oi  package 
specification  rn  the  case  of  a  pro¬ 
cedure  declared  as  a  compilation 
unit,  the  pragma  is  only  allowed 
after  the  procedure  declaration  and 
before  any  subsequent  compilation 
unit.  This  pragma  is  not  allowed 
for  a  procedure  declared  with  a 
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renaming  declaration,  and  is  not 
allowed  for  a  generic  procedure  (it 
may  be  given  tor  a  generic  instanti¬ 
ation).  This  pragma  permits  an  Ada 
routine  to  be  called  from  a  program 
mitten  in  another  VAX  language 
(see  13. 9a  1.4). 

EXPORT_VALUED_PROCEDL'RE  Takes  an  internal  name  denoting 

a  procedure,  and  optionally  takes 
an  external  designator  (the  name  of 
a  VAX/VMS  Linker  global  symbol) 
and  parameter  types  as  arguments 
This  pragma  is  only  allowed  at  the 
place  of  a  declarative  'U,n,  and 
must  apply  to  a  procedure  declared 
bv  an  earlier  declarative  item  of  the 
same  declarative  part  or  package 
specification.  In  the  case  of  a  pro¬ 
cedure  declared  as  a  compilation 
unit,  the  pragma  is  only  allowed 
after  the  procedure  declaration  and 
before  any  subsequent  compilation 
unit.  The  first  (or  only)  parameter 
of  the  procedure  must  be  of  mode 
out.  This  pragma  is  not  allowed 
for  a  procedure  declared  with  a 
renaming  declaration  and  is  not 
allowed  for  a  generic  procedure  (it 
may  be  given  for  a  generic  instan¬ 
tiation).  This  pragma  permits  an 
Ada  procedure  to  behave  as  a  tunc- 
tion  that  both  returns  a  value  and 
causes  side  effects  on  its  parame¬ 
ters  when  it  is  called  from  a  routine 
written  in  another  VAX  language 
(see  13.9a. 1.4). 


IMPORT_EXCEPTION  Takes  an  internal  name  denoting 

an  exception,  and  optionally  takes 
an  external  designator  (the  name 
of  a  VAX/VMS  Linker  global  sym¬ 
bol),  a  form  (ADA  or  VMS),  and 
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.i  code  (a  static  integer  expres¬ 
sion  that  is  interpreted  as  a  VAX 
condition  code)  as  arguments.  A 
code  value  is  allowed  only  when 
the  form  is  VMS  (the  default  if  the 
form  is  not  specified).  Phi.-  pragma 
is  only  allowed  at  the  place  of  a 
declarative  item,  and  must  apply 
to  an  exception  declared  by  an 
earlier  declarative  item  of  the  same 
declarative  part  or  package  spec¬ 
ification;  it  is  not  allowed  for  an 
exception  declared  with  a  tenanting 
declaration,  t  his  pragma  promts  a 
non-Ada  exception  (m>  t  notable, 
a  VAX  condition)  to  be  handled  by 
an  Ada  program  (see  li.la  vl). 

IMPORT, FUNCTION  Takes  an  internal  name  denoting  a 

function,  and  optionally  takes  an 
external  designator  (the  name  of  a 
VAX/VMS  Linker  global  symbol), 
parameter  types,  result  ty  pe,  and 
mechanism  as  arguments  Pragma 
INTERFACE  must  be  used  with  this 
pragma  (see  13.9).  This  pragma 
is  only  allowed  at  the  place  of  a 
declarative  item,  and  must  apply 
to  a  function  declared  by  an  earlier 
declarative  item  of  the  same  declar¬ 
ative  part  or  package  specification. 
In  the  case  of  a  function  declared 
as  a  compilation  unit,  the  pragma  is 
only  allowed  after  the  function  dec¬ 
laration  and  before  any  subsequent 
compilation  unit.  This  piagma  is  al¬ 
lowed  for  a  function  declared  with 
a  renaming  declaration;  it  is  not 
allowed  for  a  generic  function  or  a 
generic  function  instantiation.  This 
pragma  permits  a  non-Ada  rou¬ 
tine  to  be  used  as  an  Ada  function 
(see  13. 9a.  1.1). 

IMPORT_OBJECT  Takes  an  internal  name  denoting 

an  object,  and  optionally  takes  an 
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extern.il  designator  (the  name  of  a 
VAX/VMS  Linker  global  svmbol) 
and  size  (a  VAX/VMS  Linker  global 
symbol  whose  value  .s  the  size  in 
bytes  of  the  imported  object i  a< 
arguments.  This  pragma  i*  onK 
allov.v.'  the  place  of  a  declara¬ 
tive  item  at  the  outermost  level  ot 
a  library  package  specification  or 
body,  and  must  apply  to  a  variable 
declared  by  an  earlier  declarative 
item  of  the  same  package  specifi¬ 
cation  or  bode  the  .  ...iable  must 
be  of  a  type  or  subtype  that  ha*  i 
constant  size  at  compile  time  1'his 
pragma  is  riot  allowed  for  objects 
declared  with  a  renaming  oeclaia- 
tion,  and  is  not  allowed  in  a  generic 
unit.  This  pragma  permits  storage 
declared  in  a  non-Ada  routine  to 
be  referred  to  by  an  Ada  program 
(see  13. 9a. 2.1). 

Takes  an  internal  name  denoting 
a  procedure,  and  optionally  takes 
an  external  designator  (the  name  of 
a  VAX/VMS  Linker  global  symbol) 
parameter  types,  and  mechanism 
as  arguments.  Pragma  INTERFACE 
must  be  used  with  this  pragma 
(see  13.9).  This  pragma  is  only 
allowed  at  the  place  of  a  declar¬ 
ative  item,  and  must  apply  to  a 
procedure  declared  by  an  earlier 
declarative  item  of  the  same  declar¬ 
ative  paii  or  package  specification 
In  the  case  of  a  procedure  declared 
as  a  compilation  unit,  the  pragma 
is  onlv  allowed  after  the  proce¬ 
dure  declaration  and  before  any 
subsequent  compilation  unit.  This 
pragma  is  allowed  for  a  piocedure 
declared  with  a  renaming  declara¬ 
tion;  it  is  not  allowed  for  a  generic 
procedure  or  a  generic  procedure 
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I  instantiation.  This  pragma  permits 

a  non  Ada  routine  to  be  used  as  an 
Ada  procedure  (see  13. 9a. 1.1). 

IMPORT_ VALUED_ PROCEDURE  Takes  an  internal  name  denoting  a 

procedure,  and  optionally  takes  an 
external  designator  (the  name  of  a 
VAX/VMS  Linker  global  symbol), 
parameter  types,  and  mechanism 
as  arguments.  Pragma  INTERFACE 
must  be  used  with  this  pragma  (see 
13.9).  This  pragma  is  only  allowed 
at  the  place  of  a  declarative  item, 
and  must  applv  to  a  procedure 
declared  by  an  earlier  declarative 
item  of  the  same  declarative  part 
or  package  specification.  In  the 
case  of  a  procedure  declared  as 
a  compilation  unit,  the  pragma  is 
only  allowed  after  the  procedure 
declaration  and  before  any  subse¬ 
quent  compilation  unit.  The  first 
(or  only)  parameter  of  the  proce¬ 
dure  must  be  of  mode  out.  This 
pragma  is  allowed  for  a  procedure 
declared  with  a  renaming  declara¬ 
tion;  it  is  not  allowed  for  a  generic 
procedure.  This  pragma  permits 
a  non-Ada  routine  that  returns  a 
value  and  causes  side  effects  on  its 
parameters  to  be  used  as  an  Ada 
procedure  (see  13. 9a. 1.1). 

4  INLINE  Takes  one  or  more  names  as  ar¬ 

guments;  each  name  is  either  the 
name  of  a  subprogram  or  the  name 
of  a  generic  subprogram.  This 
pragma  is  only  allowed  at  the  place 
of  a  declarative  item  in  a  declarative 
part  or  package  specification,  or  af¬ 
ter  a  library  unit  in  a  compilation, 
but  before  any  subsequent  compi¬ 
lation  unit.  This  pragma  specifies 
that  the  subprogram  bodies  should 
be  expanded  inline  at  each  call 
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whenever  possible;  in  the  case  ol 
a  generic  subpiogram.  the  pragma 
applies  to  calls  of  its  instantiations 
(see  6.3.2) 

5  INTERFACE  Takes  a  language  name  and  a  sub¬ 

program  name  as  arguments  This 
pragma  is  alien-,  ed  at  the  place  of  a 
declarative  item,  and  must  apply  in 
this  case  to  a  subprogram  declared 
by  an  earlier  declarative  item  of  the 
same  declarative  part  or  package 
specification.  This  pragma  is  also 
allowed  for  a  libiary  unit;  in  this 
case  the  pragma  must  appear  after 
the  subprogram  declaration,  and 
before  any  subsequent  compila¬ 
tion  unit.  This  pragma  specifies 
the  other  language  (and  thereby 
the  calling  conventions)  and  in¬ 
forms  the  compiler  that  an  object 
module  will  be  supplied  for  the 
corresponding  subprogram  (see 
13.9). 

In  VAX  Ada,  pragma  INTERFACE 
is  required  in  combination  with 
pragmas  IMPORT  FUNCTION, 
IMPORT  PROCEDURE,  and 
IMPORT.  VALUED.  PROCEDURE 
(see  13.9a. 1). 

6  LIST  Takes  one  of  the  identifiers  ON 

or  OFF  as  the  single  argument. 

This  pragma  is  allowed  aimi  here 
a  pragma  is  allowed.  It  specifies 
that  listing  of  the  compilation  is  to 
be  continued  or  suspended  until 
a  LIST  pragma  with  the  opposite 
argument  is  given  within  the  same 
compilation.  The  pragma  itself 
is  always  listed  it  ihe  compiler  is 
producing  a  listing. 
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LONG.  FLOAT 


Takes  either  D_  FLOAT  or  G_ 
FLOAT  as  the  single  argument. 

The  default  is  G_  FLOAT.  This 
pragma  is  only  allowed  at  the  start 
of  a  compilation,  before  the  first 
compilation  unit  (if  any)  of  the 
compilation.  It  specifies  the  choice 
of  representation  to  be  used  for  the 
predefined  type  LONG.  FLOAT 
in  package  STANDARD  and  for 
floating  point  type  declarations  with 
digits  specified  in  the  range  7. .15 
(see  3.5.7a). 


MAIN.  STORAGE  Takes  one  or  two  nc  mncgativc 

static  simple  expressions  of  some 
integer  type  as  arguments.  This 
pragma  is  only  allowed  in  the 
outermost  declarative  part  of  a 
library  subprogram;  at  most  one 
such  pragma  is  allowed  in  a  library 
subprogram.  It  has  an  effect  only 
when  the  subprogram  to  which  it 
applies  is  used  as  a  main  program. 
This  pragma  causes  a  fixed  size 
stack  to  be  created  for  a  main  task 
(the  task  associated  with  a  main 
program),  and  determines  the 
number  of  storage  units  (bytes)  to 
be  allocated  for  the  stack  working 
storage  area  and/or  guard  pages. 
The  value  specified  for  either  or 
both  the  working  storage  area  and 
guard  pages  is  rounded  up  to  an 
integral  number  of  pages.  A  value 
of  zero  for  the  working  storage 
area  rc  ults  in  the  use  of  a  default 
size;  a  value  of  zero  for  the  guard 
pages  results  in  no  guard  storage. 

A  negative  value  for  either  working 
storage  or  guard  pages  causes  the 
pragma  to  be  ignored  (see  13.2b). 
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MEMORY_SIZE 


OPTIMIZE 


PACK 


PAGE 


Takes  a  numeric  literal  as  the 
single  argument.  This  pragma 
is  only  allowed  at  the  start  of 
a  compilation,  before  the  first 
compilation  unit  (if  .un!  of  the 
compilation.  The  effect  ot  this 
pragma  is  to  use  the  value  of  the 
specified  numeric  literal  for  the 
definition  of  the  named  number 
MEMORY,  SIZE  (see  13.7). 

Takes  one  of  the  identifiers  TIME 
or  SPACE  as  the  single  argument. 

I  his  pragma  is  only  allowed  within 
a  declarative  part  and  it  applies 
to  the  block  or  body  enclosing 
the  declarative  part.  It  specities 
whether  time  or  space  is  the  pri¬ 
mary  optimization  criterion. 


In  VAX  Ada,  this  pragma  is  only 
allowed  immediately  within  a 
declarative  part  of  a  body  declara¬ 
tion. 

Takes  the  simple  name  of  a  record 
or  array  type  as  the  single  argu¬ 
ment.  The  allowed  positions  for 
this  pragma,  and  the  restrictions  on 
the  named  type,  are  governed  by 
the  same  rules  as  for  a  representa¬ 
tion  clause.  The  pragma  specifies 
that  storage  minimization  should  be 
the  main  criterion  when  selecting 
the  representation  of  the  given  type 
(see  13.1). 

This  pragma  has  no  argument, 
and  is  allowed  anywhere  a  pragma 
is  allowed.  It  specifies  that  the 
program  text  which  follows  the 
pragma  should  start  on  a  new 
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page  (if  the  compiler  is  currently 
producing  a  listing). 

Takes  a  static  expression  of  the  pre¬ 
defined  integer  subtype  PRIORITY 
as  the  single  argument.  This 
pragma  is  only  allowed  within 
the  specification  of  a  task  unit  or 
immediately  within  the  outermost 
declarative  part  of  a  main  program. 
It  specifies  the  priority  of  the  task 
(or  tasks  of  the  task  type)  or  the 
priority  of  the  main  program  (see 
9.8). 

Takes  an  internal  name  denoting 
an  object,  and  optionally  takes  an 
external  designator  (the  name  of 
a  program  section)  and  a  size  (a 
VAX/VMS  Linker  global  symbol 
whose  value  is  interpreted  as 
the  size  in  bytes  of  the  exported 
/imported  object)  as  arguments. 
This  pragma  is  only  allowed  at  the 
place  of  a  declarative  item  at  the 
outermost  level  of  a  library  package 
specification  or  body,  and  must 
apply  to  a  variable  declared  by  an 
earlier  declarative  item  of  the  same 
package  specification  or  body; 
the  variable  must  be  of  a  type  or 
subtype  that  has  a  constant  size 
at  compile  time.  This  pragma  is 
not  allowed  for  an  object  declared 
with  a  renaming  declaration,  and  is 
not  allowed  in  a  generic  unit.  This 
pragma  enables  the  shared  use  of 
objects  that  are  stored  in  overlaid 
program  sections  (see  13. 9a. 2. 3). 

Takes  the  simple  name  of  a  vari¬ 
able  as  the  single  argument.  This 


STORAGE. 


SUPPRESS 


pragma  is  allowed  only  for  a  vari¬ 
able  declared  by  an  object  decla¬ 
ration  and  whose  type  is  a  scalar 
or  access  type;  the  variable  decla¬ 
ration  and  the  pragma  must  both 
occur  (in  this  order)  immediately 
within  the  same  declarative  part  or 
package  specification.  This  pragma 
specifies  that  every  read  or  update 
of  the  variable  is  a  synchroniza¬ 
tion  point  for  that  variable.  An 
implementation  must  restrict  the 
objects  for  which  this  pragma  is 
allowed  to  objects  for  which  each  of 
direct  reading  and  direct  updating 
is  implemented  as  an  indivisible 
operation  (see  9. 1 1). 


VAX  Ada  does  not  support  pragma 
SHARED  (see  VOLATILE). 


UNIT  Takes  a  numeric  literal  as  the 

single  argument.  This  pragma 
is  only  allowed  at  the  start  of 
a  compilation,  before  the  first 
compilation  unit  (if  any)  of  the 
compilation.  The  effect  of  this 
pragma  is  to  use  the  value  of  the 
specified  numeric  literal  for  the 
definition  of  the  named  number 
5TOR AGE_  UNIT  (see  13.7). 


In  VAX  Ada,  the  only  argument 
allowed  for  this  pragma  is  eight  (8) 

Takes  as  arguments  the  identifier 
of  a  check  and  optionally  also 
the  name  of  either  an  object,  a 
type  or  subtype,  a  subprogram,  a 
task  unit,  or  a  generic  unit  This 
pragma  is  only  allowed  either  im¬ 
mediately  within  a  declarative  part 
or  immediately  within  a  package 
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specification.  In  the  latter  case,  the 
only  allowed  fonn  is  with  a  name 
that  denotes  an  entity  (or  several 
overloaded  subprograms)  declared 
immediately  within  the  package 
specification.  The  permission  to 
omit  the  given  check  extends  from 
the  place  of  the  pragma  to  the  end 
of  the  declarative  region  associated 
with  the  innermost  enclosing  block 
statement  or  program  unit  For  a 
pragma  given  in  a  package  specifi¬ 
cation,  the  permission  extends  to 
the  end  of  the  scope  of  the  named 
entity. 

If  the  pragma  indudes  a  name,  the 
permission  to  omit  the  given  check 
is  further  restricted:  it  is  given  only 
for  operations  on  the  named  object 
or  on  all  objects  of  the  base  type 
of  a  named  type  or  subtype;  for 
calls  of  a  named  subprogram,  for 
activations  of  tasks  of  the  named 
task  type;  or  for  instantiations  of 
the  given  generic  unit  (see  11.7). 

VAX  Ada  does  not  support  pragma 
SUPPRESS  (see  SUPPRESS.  ALL). 


SUPPRESS.  ALL  This  pragma  has  no  argument 

and  is  only  allowed  following  a 
compilation  unit.  This  pragma 
specifies  that  all  run-time  checks  in 
the  unit  are  suppressed  (see  11.7). 

15  SYSTEM. NAME  Takes  an  enumeration  literal  as 

the  single  argument.  This  pragma 
is  only  allowed  at  the  start  of 
a  compilation,  before  the  first 
compilation  unit  (if  any)  of  the 
compilation.  The  effect  of  this 
pragma  is  to  use  the  enumeration 
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literal  with  the  specified  identifier 
for  the  definition  of  the  constant 
SYS  I'EM_  NAME.  This  pragma 
is  only  allowed  if  the  specified 
identifier  corresponds  to  one  of  the 
literals  ot  the  t\pe  NAME  declared 
in  the  package  SYSTEM  (see  13.7). 

Takes  the  simple  name  of  a  task 
and  a  static  expression  of  some 
integer  type  as  arguments.  This 
pragma  is  allowed  anywhere  that 
a  task  storage  specification  is  al¬ 
lowed  that  is.  the  declaration  of 
the  task  type  to  which  the  pragma 
applies  and  the  pragma  must  both 
occur  (in  this  order)  immediately 
within  the  same  declarative  part 
package  specification,  or  task  spec¬ 
ification.  The  effect  of  this  pragma 
is  to  use  the  value  of  the  expres¬ 
sion  as  the  number  of  storage  units 
(bytes)  to  be  allocated  as  guard 
storage.  The  value  is  rounded  up 
to  an  integral  number  of  pages:  a 
value  of  zero  results  in  no  guard 
storage;  a  negative  value  causes  the 
pragma  to  be  ignored  (see  13.2a). 


Takes  a  static  expression  of 
the  predefined  fixed  point 
type  DURATION  (in  package 
STANDARD)  as  the  single  argu¬ 
ment.  This  pragma  is  only  allowed 
in  the  outermost  declarative  part 
of  a  library  subprogram,  and  at 
most  one  such  pragma  is  allowed 
in  a  library  subprogram.  It  has  an 
effect  only  when  the  subprogram  to 
which  it  applies  is  used  as  a  main 
program.  This  pragma  specifies  the 
nominal  amount  of  elapsed  time 
permitted  for  the  execution  of  a 
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task  when  other  tasks  of  the  same 
priority  are  also  eligible  for  exe¬ 
cution.  A  positive,  nonzero  value 
of  the  static  expression  enables 
round-robin  scheduling  for  all  tasks 
in  the  subprogram;  a  negative  or 
zero  value  disables  it  (see  9.8a). 


TITLE 


Takes  a  title  or  a  subtitle  string,  or 
both,  in  either  order,  as  arguments. 
Pragma  TITLE  has  the  form: 

prtga*  TITLE  (titling  option 
[ . tit! lng-optionj ) , 

titling-option  - 

[TITLE  =>]  string.litcrtl 
I  [SUBTITLE  =>]  string. literal 

This  pragma  is  allowed  anywhere 
a  pragma  is  allowed;  the  given 
string(s)  supersede(s)  the  default 
title  and/or  subtitle  portions  of  a 
compilation  listing. 


VOLATILE  Takes  the  simple  name  of  a  vari¬ 

able  as  the  single  argument.  This 
pragma  is  only  allowed  for  a  vari¬ 
able  declared  by  an  object  declara¬ 
tion.  The  variable  declaration  and 
the  pragma  must  both  occur  (in  this 
order)  immediately  within  the  same 
declarative  part  or  package  speci¬ 
fication.  The  pragma  must  appear 
before  any  occurrence  of  the  name 
of  the  variable  other  than  in  an  ad¬ 
dress  clause  or  in  one  of  the  VAX 
Ada  pragmas  IMPORT  OBJECT, 
EXPORT.  OBJECT,  or  PSECT. 
OBJECT.  The  variable  cannot  be 
declared  by  a  renaming  declaration. 
The  VOLATILE  pragma  specifies 
that  the  variable  may  be  modified 
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asynchronously.  This  pragma  in¬ 
structs  the  compiler  to  obtain  the 
value  of  a  variable  from  memory 
each  time  it  is  used  (see  9.11). 
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VAX  Ada  Appendix  F 


NOTE 

This  appendix  is  not  part  of  the  standard  definition  of  the 
Ada  programming  language. 

This  appendix  summarizes  the  implementation-dependent  characteris¬ 
tics  of  VAX  Ada  by 

•  Listing  the  VAX  Ada  pragmas  and  attributes. 

•  Giving  the  specification  of  the  package  SYSTEM. 

«  Presenting  the  restrictions  on  representation  clauses  and  unchecked 
type  conversions. 

•  Giving  the  conventions  for  names  denoting  implementation- 
dependent  components  in  record  representation  clauses. 

•  Giving  the  interpretation  of  expressions  in  address  clauses. 

•  Presenting  the  implementation-dependent  characteristics  of  the 
input-output  packages. 

•  Presenting  other  implementation-dependent  characteristics. 
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F.1  Implementation-Dependent  Pragmas 

VAX  Ada  provides  the  following  pragmas,  which  are  defined  elsewhere 
in  the  text.  In  addition,  VAX  Ada  restricts  the  predefined  language 
pragmas  INLINE  and  INTERFACE,  and  provides  alternative*  to  prag¬ 
mas  SHARED  and  SUPPRESS  (VOLATILE  and  SLTPRESS.  ALL).  See 
Annex  B  for  a  descriptive  pragma  summary. 

•  AST_ ENTRY  (see  9.12a) 

•  EXPORT. EXCEPTION  (see  13.9a. 3  2) 

•  EXPORT. FUNCTION  (see  13. 9a. 1.4) 

•  EXPORT. OBJECT  (see  13. 9a,2. 2) 

•  EXPORT. PROCEDURE  (see  13.9a.  t. 4) 

•  EXI’OR T_ VALUED. PROCEDURE  (see  i3.9a.l.4) 

•  IMPORT. EXCEPTION  (see  13. 9a. 3.1) 

•  IMPORT. FUNCTION  (see  13.9a. 1.1) 

•  IMPORT. OBJECT  (see  13. 9a. 2.1) 

•  IMPORT. PROCEDURE  (see  13. 9a.  1.1) 

•  IMPORT.  VALUED. PROCEDURE  (see  13.9a. 1.1) 

•  LONG. FLOAT  (see  3.5.7a) 

•  MAIN. STORAGE  (see  13.2b) 

•  PSECT. OBJECT  (see  13.9a.2.3) 

•  SUPPRESS.  ALL  (see  11.7) 

•  TASK. STORAGE  (see  13.2a) 

•  TIME. SLICE  (see  9.8a) 

•  TITLE  (see  B) 

•  VOLATILE  (see  9.11) 
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F.2  Implementation-Dependent  Attributes 

VAX  Ada  provides  the  following  attributes,  which  are  defined  else¬ 
where  in  the  text.  See  Annex  A  for  a  descriptive  attribute  summary. 

•  AST_ ENTRY  (see  9.12a) 

•  BIT  (see  13.7.2) 

•  MACHINE. SIZE  (see  13.7.2) 

•  NULL. PARAMETER  (see  13.9a. 1.3) 

•  TYPE.CLASS  (see  13.7a  2) 


F.3  Specification  of  the  Package  System 


packafa  SYSTEM  It 

typa  NINE  ll  (VAI.VMS,  VAIELN)  . 


SYSTEM.HAME 

STORACE.UNIT 

MEMORY. SIZE 

MAX.INT 

Mill. HIT 

MAI.DICIIS 

NAX.MANTISSA 

FIIIE.DELTA 

TICK 


coaataat  I1AME  =  VAX. VMS, 


coaataat 

ceaatant 

coaataat 

coaataat 

coaataat 

coaatant 

coaataat 

coaataat 


8. 

2*»31 -1 , 

2- • 3 1  - 1 , 

- (2**31) . 
33. 

31. 

2  0«« ( -30)  . 
10  0--C-2) . 


aabtypa  PRIORITY  la  INTECER  raaga  0  IS. 


Addraaa  tyj.a 

typa  ADDRESS  la  prlvata. 


ADDRESS. ZERO  coaataat  ADDRESS. 


faactloa 

faactloa 

faactloa 

faactloa 


(LEFT  ADDRESS.  RIGHT 
(LEFT  :  INTEGER.  RICH! 
(LEFT  ADDRESS,  RICHT 
(LEFT  ADDRESS.  RICHT 


INTEGER!  ratara  ADDRESS 
ADDRESS)  ratuia  ADDRESS 
ADDRESS)  ratura  INTEGER 
INTEGER)  ratara  ADDRESS 


faactloa 

***** 

(LEFT. 

RIGHT 

faactloa 

•/*" 

(LEFT, 

RIGHT 

faactloa 

•<" 

(LEFT. 

RIGHT 

faactloa 

(LEFT. 

RIGHT 

faactloa 

•>• 

(LEFT. 

RIGHT 

faactloa 

•>*" 

(LEFT. 

RIGHT 

ADDRESS)  ratara  BOOLEAN. 
ADDRESS)  ratara  BOOLEAN. 
ADDRESS)  ratara  BOOLEAN. 
ADDRESS)  ratara  BOOLEAN. 
ADDRESS)  ratara  BOOLEAN. 
ADDRESS)  ratara  BOOLEAN. 
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Not*  that  b*cau»«  ADDRESS  it  *  pnvitt  typ* 

tht  functions  and  */=•  arc  already  availabl*  and 

do  not  hv*  to  b«  explicitly  dtfintd 

gaaaric 

type  TARGET  la  prlvmta. 

function  FETCH. FROM. ADDRESS  (A  ADDRESS)  raturn  TARCET. 
(anarlc 

typ*  TARCET  la  prlvat*. 

procadura  ASSICII. TO. ADDRESS  (A  ADDRESS.  T  TARCET). 

typ*  TYPE. CLASS  la  (TYPE. CLASS. EHUNERATI  Oil , 

TYPE. CLASS. IIITECER, 

TYPE.CLASS. FIXED .POINT. 

TYPE.  CL  ASS.  FLOAT  IIIC.PO  IlIT, 

TYPE. CLASS. ARRAY. 

TYPE  »:>;>. RECCRD. 

TYPE. CLASS. ACCESS. 

TYPE. CLASS. TASK. 

TYPE.CLASS. ADDRESS) . 

VAX  Ada  floating  point  typ*  daclarationa  for  tha  VAX 
hardware  floating-point  data  types 

typ*  D. FLOAT  la  implementati'n.drjined, 
typ*  F. FLOAT  la  imptementnti  -n. tiffin'd, 
typ*  C.FLOAT  la  implementation,  defined, 
typ*  H. FLOAT  la  implementati  n. defined, 


AST  handlar  typ* 

typ*  AST.HANDLER  la  ll«lt*d  prlvat*. 
MO_AST.HAlim.ER  conataat  AST. HANDLER , 

Non-Ada  *xc*ption 

HON. ADA. ERROR  axeaptlon . 


VAX  hardvare-orientcd  typ**  and  function* 

typ*  BIT. ARRAY  la  array  (INTEGER  rang*  <>)  of  BOOLEAN, 

pragma  PACK(BIT_ ARRAY) , 

aubtypa  BIT. ARRAY. 8  la  BIT. ARRAY  (0  7). 

aubtyp*  BIT. ARRAY. 16  1*  BIT. ARRAY  (0  15). 

aubtyp*  BIT. ARRAY. 32  la  5'T  ARRAY  (0  31), 

aubtyp*  BIT.ARRAY.64  la  BIT. 1  ./.AY  (0  63), 

typ*  INISICNED.BYTE  la  rang*  0  255, 

for  UNSICNED.BYTE'SIZE  aa*  8, 
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function  "not*  (LEFT  UNSiCHED.BYTE)  rotor*  U]IS I Ci;ED_ BY  TE , 

fanctloa  "and"  (LEFT,  RICHI  UHSICHED.BYTE)  ratar*  UHSIGlIEB.Bi  TE . 

fanetioa  "or"  (LEFT,  RICHT  UHSICHED.BYTE)  Tatar*  UHSICHED.BYTE. 

function  "xor"  (LEFT,  RICHT  UNSICHED.BYTE)  Tatar*  UHSICHED.BYTE , 

fanctlon  TO.UHSIGHED.BYTE  (LEFT  BIT.ARRAY.B)  ratar*  UHSICHED.BYTE. 
fanctlon  TO.BIT.ARRAY. S  (LEFT  :  UNSICHED.BYTE)  ratar*  BIT.ARRAY.8, 

typa  UNSIGHED.BYTE.ARRAY  la  array  (I1ITECER  ra**a  <>)  of  UHSICHED.BYTE, 

typa  UHSICHED_¥ORD  la  ranfa  0  6S535 

for  UHSICHED_¥ORD'SIZE  aaa  16. 

fanctlon  "not"  (LEFT  :  UHSICHED.UORD)  ratar*  UHSIGNED_*ORD, 

function  "and"  (LEFT,  RICHT  UHSICHED.IIORD)  ratar*  UHSICHED.ORD, 

function  "or"  (LEFT.  RICHT  UHSICHED.IIORD)  ratur*  UHS1GHED.U0RD . 

function  "xor"  (LEFT,  RICHT  UllSICNED.aORD)  ratar*  UHSICHED.ILRD. 

function  TO.UHSICHED.WORD  (LEFT  BIT. ARRAY. 16)  ratar*  UHSICHED.IIORD, 
function  TO.  BIT. ARRAY. 16  (LEFT  UUS I  CUED.  WORD )  raturn  i:  7. ARRAY. 16, 

typa  UHSICHED.IIORD. ARRAY  la  array  (IHTECER  ranga  <>)  of  t'HSICHED.IIQRD. 
typa  UHSICHED.L0HCII3RD  la  ranga  NI1I.I1IT  .  .  MAX. HIT. 

function  “not"  (LEFT  U11SIC11ED.L01ICW0RD)  ratar*  UHSIGHED.LOHMORD; 

function  “and"  (LEFT,  RICHT  UHSICHED_LOHC*ORD)  ratur*  UHSICHED.LOHGIIQRD , 

function  “or"  (LEFT,  RICHT  :  UHSICHED.LOHGIiaRD)  ratar*  UHSICHED.LOHGIIORD ; 

function  "xor"  (LEFT.  RICHT  :  UHSIGIIED.LONGWORD)  ratur*  UHSICNED.LOHCIIORD , 

function  TO.UHSICUED.LONCWORD  (LEFT  BIT.ARRAY.32) 
raturn  UHSICHED.LOHCIIORD , 

function  T0_EIT.ARRAY.32  (LEFT  :  UHSICHED.LOHCIIORD)  rotur*  BIT.ARRAY.32 , 

typa  UNSICHED.LOHGIURD.ARRAY  la 

array  (IHTECER  ranga  <>)  of  UHSICHED.LOHCIIORD. 

typo  UIISIGHED.QUADWORD  la  racord 
LO  :  UHSICHED.LOHCIIORD ; 

LI  :  UHSICUED.LOHGVQRD ; 

and  racord; 

function  "not"  (LEFT  :  UIISIC1IED_QUAD*LRD)  raturn  UHSICHED.BUADIIQRD , 

function  "and"  (LEFT,  RIGHT  imSIGHED_BUAD»ORD)  ratar*  U1!SIC!1ED.QUAD¥0RD , 

function  "or"  (LEFT.  RICHT  UHSICUED.OUADUCRD)  raturn  UHSICHED.BUADmD , 

function  "xor"  (LEFT,  RICHT  UHSICHED.OUADIIORD)  raturn  UHSICHED.OUADIIORD; 

fanctlon  TO.UHSICHED.OUADUORD  (LEFT  BIT. ARRAY. 64) 

raturn  UHSICHED.OUADIIORD, 

function  TO.BIT. ARRAY. 64  (LEFT  UHSICHED.8UADII0AD)  raturn  BIT. ARRAY. 64 , 

typa  inJSIGHED.BUADVORD. ARRAY  la 

array  (IHTECER  ranga  <>)  of  UHSIGHED.OUADIIOAD. 


fuetltl  TO, ADDRESS  (X  :  IHTECER)  retur#  ADDRESS. 

X (action  TO. ADDRESS  (X  UNSICHED.LONCWORD)  rotara  ADDRESS, 

faactioa  TO. ADDRESS  (X  :  universal. integer)  ratora  ADDRESS, 

Caactlea  TO. IHTECER  (X  :  ADDRESS)  ratora  IHTECER. 

faactioa  TO.UNSICHED.LOHCWORD  (X  ADDRESS)  ratara  UHSICHED.LOHCWORD , 

faactioa  IO.UHSICIIED. LOHCWORD  (X  AST.HAHDLER)  ratara  UHSICHED.LOHCWORD. 

Conventional  names  for  atatic  aubtypaa  of  type  UHSICHED.LOHCW DRD 


subtype  UIISICIIED.l 

la 

UHSICHED. LOHCWORD 

rang* 

0 

2**  1-1 

subtype  U1ISICIIED.2 

la 

UHSICHED.LOHCWORD 

rang* 

0 

2..  2-1 

subtype  UHS1CIJED.3 

la 

UHSICHED. LOHCWORD 

rang# 

0 

2**  3-1 

subtype  UNSICHED.4 

la 

UHSICHED. LOHCWORD 

ranga 

0 

2**  4-1 

subtype  UIISICIIED.S 

la 

UHSICHED. LOHCWORD 

ranga 

0 

2**  S-l 

subtype  UHSICHED.6 

is 

UHSICHED.LOHCWORD 

ranga 

0 

2**  6-1 

aubtype  UIISIC’IED.7 

is 

UHSICHED. LOHCWORD 

ranga 

0 

2**  7-1 

subtype  UHSICHED. 8 

la 

uiisichedIlohcword 

ranga 

0 

2-*  8-1 

aubtype  UHSICHED. 9 

la 

UHSICHED. LOHCWORD 

ranga 

0 

2**  9-1 

aubtype  'HSIOID.IO 

la 

UHSICHED. LOHCWORD 

ranga 

0 

2*  •  10- 1 

aubtype  UHSICIIED.il 

la 

UHSICHED. LOHCWORD 

ranga 

0 

2  •  •  1 1  - 1 

aubtype  UHSICHED. 12 

la 

UHSICHED. LOHCWORD 

ranga 

0 

2 • • 1 2- 1 

aubtype  UHSICHED. 13 

la 

UHSICHED .LOHCWORD 

ranga 

0 

2**13-1 

aubtype  uiiSIGtVD.14 

la 

UHSICHED. LOHCWORD 

ranga 

0 

2«* 14  - 1 

aubtype  UHSICHED. IS 

la 

UHSICHED. LOHCWORD 

ranga 

0 

2**1S-1 

aubtype  UHSICHED. 16 

la 

UHSICHED. LOHCWORD 

ranga 

0 

2**16-t 

aubtype  UHSICHED. 17 

la 

UHSICHED. LOHCWORD 

ranga 

0 

2»* 17-1 

aubtype  UHSICHED. 18 

la 

UHSICHED. LOHCWORD 

ranga 

0 

2**1S-1 

aubtype  UHSICHED. 19 

la 

UHSICHED.LOHCWGRD 

ranga 

0 

2--19-1 

aubtype  UHSIGHED.20 

la 

UHSICHED .LOHCWORD 

ranga 

0 

2. .20-1 

aubtype  UHSICHED. 21 

la 

UHSICHED. LOHCWORD 

ranga 

0 

2**21-1 

aubtype  UHSICHED.22 

la 

UHSICHED. LOHCWORD 

ranga 

0 

2. .22-1 

aubtype  UHSICHED. 23 

la 

UHSICHED .LOHCWORD 

ranga 

0 

2..23-1 

aubtype  UHSICHED. 24 

la 

UHSICHED .LOHCWORD 

ranga 

0 

2..24-1 

aubtype  UHSICHED. 2S 

la 

UHSICHED. LOHCWORD 

ranga 

0 

2*« 25-1 

aubtype  U1ISICHED.26 

la 

UHSICHED. LOHCWORD 

ranga 

0 

2..26-1 

aubtype  UHSICHED. 27 

la 

UHSICHED. LOHCWORD 

ranga 

0 

2«.27-l 

aubtype  UHSICHED. 28 

la 

UHSICHED. LOHCWORD 

ranga 

c 

2**28- 1 

aubtype  UHSICHED. 29 

la 

UHSICHED. LOHCWORD 

ranga 

0 

2*  *29- 1 

aubtype  UHSICHED. 30 

la 

UHSICHED. LOHCWORD 

ranga 

0 

2* *30-1 

aubtype  UHSICHED. 31 

la 

UHSICHED. LOHCWORD 

ranga 

0 

2* -31 - 1 

Function  for  obtaining 

global  aynbol  valuta 

faactlea  IKPORT. VALUE  (SYMBOL  STRIHG)  ratara  UHSICHED.LOHCWORD . 

VAX  device  and  proceaa  register  operations 

faactioa  READ.RECISTER  (SOURCE  UHSICHED.BTIE)  ratara  UIISICHED.BTTE . 

faactioa  READ.RECISTER  (SOURCE  UHSICHED. WORD)  ratara  UHSICHED.WORD . 

faactioa  READ.RECISTER  (SOURCE  UHSICHED.LOHCWORD)  ratara  UHSICHED.LOHCWORD, 
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pr*c«dtr«  WRITE.R£G1STER(S0URCE 
TARCET 

pr*c*dsr«  iRI It _RtC ISTER (SOURCE 
TARCET 

prscsdsr*  WRITE. RECISTER (SOURCE 
TARCET 


UNSTCNED.BYTE, 

•St  UNSICNED.BYTE)  , 
UNSICNED.WORD. 

•St  UNSICNED.WORD)  , 
tniSICIIED.LOriCWORD, 

•St  UNSICNED.LONCWORD)  , 


f tact 1st  NFPR  (RES. CUMBER 
pr*c»dir*  NTPR  (REC. NUMBER 
SOURCE 


INTECER)  t«tsrs  UIIS  ICNEO.LONCWORD  , 
INTFCER. 

UNS ICNEO.LONCWORD) , 


VAX  mtarlockad-inttrsction  procsdurss 

proc.durt  CLEAR. INTERLOCKED  (BIT 

OLD. VALUE 

proc*!'  TF.T.  INTERLOCKED  (BIT 

OLD. VALUE 


typ«  ALICNED. SHORT. INTECER  Is 

rccsrd 

VALUE  SHORT. INTECER  *  0. 

•»d  r«ctr< . 

far  ALICNED. SHORT. INTECER  St* 

r«card 

st  Bad  2. 

•td  rscsrd . 


is  •« t  BOOLEAN, 
•St  BOOLEAN) . 

It  out  BOOLEAN. 
«st  BOOLEAN), 


prsctdsr*  ADD. INTERLOCKED  (ADDEND 

AUGEND 

SICH 


It  SHORT. INTEGER. 

It  OBt  ALICNED. SHORT. INTECER. 
•St  INTEGER) . 


typ*  IHSfl. STATUS  1*  (OK.NOT.FIRST .  FAIL.HO.LOCK ,  OK. FIRST) , 
typ«  REMO. STATUS  It  (OK.NOT.EMPTT ,  FAIt.NO.LOCK , 

OK.EMPTT,  FAIL. WAS. EMPTY) , 


proctdsrt  INSQHI  (ITEM 

HEADER 

STATUS 

prsctdsr*  REMO HI  (HEADER 
ITEM 
STATUS 

prsctdtr*  INSOTI  (ITEM 

HEADER 

STATUS 

proctdsrs  REMQTI  (HEADER 
ITEM 
STATUS 

prAvtt* 

--  Not  thovn 
•td  SYSTEM. 


It  ADDRESS . 

At  ADDRESS . 

•St  INSO. STATUS). 

It  ADDRESS . 

•St  ADDRESS. 

•St  REMQ. STATUS) . 

It  ADDRESS . 

At  ADDRESS . 

•St  I NSQ. STATUS)  . 

At  ADDRESS , 

•st  ADDRESS. 

•St  REMS. STATUS) , 
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F.4  Restrictions  on  Representation  Clauses 


The  representation  clauses  allowed  in  VAX  Ada  are  length,  enumera¬ 
tion,  record  representation,  and  address  clauses. 

In  VAX  Ada,  a  representation  clause  for  a  generic  formal  type  or  a 
type  that  depends  on  a  generic  formal  type  is  not  allowed.  In  addition, 
a  representation  clause  for  a  composite  type  that  has  a  component 
or  subcomponent  of  a  generic  formal  type  or  a  type  derived  from  a 
generic  formal  type  is  not  allowed. 


F.5  Conventions  for  Implementation-Generated  Names 
Denoting  Implementation-Dependent  Components  in 
Record  Representation  Clauses 

VAX  Ada  does  not  allocate  implementation-dependent  components  in 
records. 


F.6  Interpretation  of  Expressions  Appearing  in  Address 
Clauses 

Expressions  appearing  in  address  clauses  must  be  of  the  type 
ADDRESS  defined  in  package  SYSTEM  (see  13.7a.  1  and  F.3).  In  VAX 
Ada,  values  of  type  SYSTEM. ADDRESS  are  interpreted  as  integers  in 
the  range  O..MAX_INT,  and  they  refer  to  addresses  in  the  user  half  of 
the  VAX  address  space. 

VAX  Ada  allows  address  clauses  for  variables  (see  13.5. 

VAX  Ada  does  not  support  interrupts. 


F.8  Implementation-Dependent  Characteristics  of 
Input-Output  Packages 

The  VAX  Ada  predefined  packages  and  their  operations  are  imple¬ 
mented  using  VAX  Record  Management  Services  (RMS)  file  orga¬ 
nizations  and  facilities.  To  give  users  the  maximum  benefit  of  the 
underlying  RMS  input-output  facilities,  VAX  Ada  provides  pack¬ 
ages  in  addition  to  SEQUENTIAL  IO,  DIRECT  IO,  TEXT  IO,  and 
IO.  EXCEPTIONS,  and  VAX  Ada  accepts  VAX  RMS  File  Definition 
Language  (FDL)  statements  in  form  strings.  The  following  sections 
summarize  die  implementation-dependent  characteristics  of  the  VAX 
Ada  input-output  packages.  The  VAX  Arin  Run-Time  Reference  Mminnl 
iiscusses  these  characteristics  in  more  detail. 


F.8.1  Additional  VAX  Ada  Input-Output  Packages 

In  addition  to  the  language-defined  input-output  packages  (SEQUENTIAL 
IO,  DIRECT. IO,  and  TEXTJO),  VAX  Ada  provides  the  following 
input-output  packages: 

•  RELATIVE. IO  (see  14.2a. 3) 

•  INDEXED. IO  (see  14.2a. 5) 

•  SEQUENTIAL. MIXED. IO  (see  14.2b.4) 

•  DIRECT. MIXED. IO  (see  14.2b.6) 

•  RELATIVE. MIXED. IO  (see  14. 2b. 8) 

•  INDEXED.MIXED. IO  (see  14.2b.  10) 

VAX  Ada  does  not  provide  the  package  LOW. LEVEL.  10. 


F.8. 2  Auxiliary  Input-Output  Exceptions 

VAX  Ada  defines  the  exceptions  needed  by  packages  RELATIVE  IO, 
INDEXED. IO,  RELATIVE. MIXED. IO,  and  INDEXED.MIXED.IO  in 
the  package  AUX.IO.EXCEPTIONS  (see  14. 5a). 
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F.8.3  Interpretation  of  the  FORM  Parameter 

The  value  of  the  FORM  parameter  for  the  OPEN  and  CREATE  proce¬ 
dures  of  each  input-output  package  may  be  a  string  whose  value  is  in¬ 
terpreted  as  a  sequence  >f  statements  of  the  VAX  Kecoid  Management 
Services  (RMS)  File  Definition  Language  (FDL),  or  it  may  be  a  string 
whose  value  is  interpreted  as  the  name  of  an  external  file  containing 
FDL  statements. 

The  use  of  the  FORM  parameter  is  described  for  each  input-output 
package  in  chapter  14.  For  information  on  the  default  FORM  param¬ 
eters  for  each  VAX  Ada  input-output  package  and  for  information  on 
using  the  the  FORM  parameter  to  specify  external  file  attributes,  see 
the  VAX  Ada  Run-Time  Reference  Mamin!.  For  information  on  1  i>L,  see 
the  Guide  to  VAX-VMS  File  Applications  and  the  VH.YVUS  File  Definition 
Lanpntipe  Facility  Reference  Manual. 


F.8.4  Implementation-Dependent  Input-Output  Error  Conditions 

As  specified  in  section  14.4,  VAX  Ada  raises  the  following  language- 
defined  exceptions  for  error  conditions  occurring  during  input-output 
operations:  STATUS  ERROR,  MODE  ERROR,  NAME  ERROR,  USE 
ERROR.  END. ERROR,  DATA. ERROR,  and  LAYOUT. ERROR.  In 
addition,  VAX  Ada  raises  the  following  exceptions  for  relative  and 
indexed  input-output  operations:  LOCK. ERROR,  EX1STENCE.ERROR, 
and  KEY.  ERROR.  VAX  Ada  does  not  raise  the  language-defined 
exception  DEVICE. ERROR;  device-related  error  conditions  cause  USE. 
ERROR  to  be  raised. 

USE.ERROR  is  raised  under  the  following  conditions: 

•  In  all  CREATE  operations  if  the  mode  specified  is  IN.FILE. 

•  In  "all  CREATE  operations  if  the  file  attributes  specified  by  the 
FORM  parameter  are  not  upported  by  the  package. 

•  In  the  WRITE  operations  on  relative  or  indexed  files  if  the  element 
in  the  position  indicated  has  already  been  written. 

•  In  the  UPDATE  and  DELETE. ELEMENT  operations  on  relative  or 
indexed  files  if  the  element  to  be  updated  or  deleted  is  not  locked. 

•  In  the  UPDATE  operations  on  indexed  files  ii  the  specified  key 
violates  the  external  file  attributes. 
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•  In  the  SET.L1NE_LFNC.I  H  and  SET. PAGE. LENGTH  opera¬ 
tions  on  text  files  if  the  lengths  specified  are  inappropriate  for  the 
external  file. 

•  If  the  capacity  of  the  external  file  has  been  exceeded. 

NAME. ERROR  is  raised  as  specified  in  section  14.4.  by  a  call  of 
a  CREATE  or  OPEN  procedure  if  the  string  given  for  the  NAME 
parameter  does  not  allow  the  identification  of  an  external  file.  In 
VAX  Ada.  the  value  ot  a  NAME  parameter  can  be  a  string  that  denotes 
.1  VAX/VMS  file  specification  or  a  VAX/VMS  logical  name  (in  either 
case,  the  string  names  an  external  file).  For  a  CREATE  procedure,  the 
value  of  a  N  \ME  parameter  can  also  be  a  null  string  in  which  case  it 
names  a  temporary  external  file  that  is  deleted  when  the  main  program 
exits.  The  VAX  Ada  Run  Time  Reference  Manual  evpHms  the  naming  of 
external  files  in  more  detail. 


F.9  Other  Implementation  Characteristics 

Implementation  cha.ucteristics  having  to  do  with  the  definition  of  a 
main  program,  various  numeric  ranges,  and  implementation  limits  are 
summarized  in  the  following  sections. 


F.9.1  Definition  of  a  Main  Program 

\  library  unit  can  be  used  as  a  main  program  provided  it  has  no 
formal  parameters  and,  in  the  case  of  a  function,  if  its  returned  value 
i  liscrete  type.  If  the  main  program  is  a  procedure,  the  status 
teowned  to  the  VAX/VMS  environment  upon  normal  completion  of  the 
procedure  is  the  value  one.  If  the  main  procedure  is  a  function,  the 
status  returned  is  the  function  value.  Note  that  when  a  main  function 
returns  a  discrete  value  whose  size  is  less  than  32  bits,  the  value  is  zero 
or  sign  extended  as  appropriate. 
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F.9.2  Values  of  Integer  Attributes 

The  ranges  of  values  for  integer  types  declared  in  package  STANDARD 
are  as  follows: 

SHORT.  SHORT.  INTEGER  - 1 2S  127 

SHORT.  INTEGER  ~327i>s  327ft7 

INTEGER  -21474K3MS  21474H3<»47 

For  the  packages  DIRFCT  IO,  RELATIVE  IO,  SEQUENTIAL 
M1XEDJO,  DIRECT. MIXED. IO,  RFI.ATlVE_MIXFD.IO  INDEXED. 
MIXED. IO,  and  TEXT.IO,  the  range  of  values  for  types  COUNT  and 
POSITIVE. COUNT  au  as  follows: 

COLA  r  "  II  21474,' CW> 47 

POSITIVE. OU  NT  I  2 1  I74h3t>  17 

For  the  package  TEXT.IO,  the  range  of  values  for  the  type  FIELD  is  as 
follows: 

FIELD  II  21474.s3i»47 

F.9.3  Values  of  Floating  Point  Attributes 


AtlribuL 

DIGITS 

MANTISSA 

EMAX 

c  PS  I  LON 

ppmxim.itel) 

'ML 

tipproxini.itfl) 

LARGE 

approximate!) 


F. Floating  V.v.ie 
and  Approximate 
Decimal  Equivalent 

ft 

21 

S4 

lft*(l  1(MMI.(KKl*e-4 
4  53ft74E4l7 
l(.*(l  KIHKI.IMKI*e-2l 
2  5S444E-2i> 

1ft*(l  FF FF. Fsil»e  »  21 
I  V342SF.  -25 
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Attribute 


SAFE.EMAX 

>  M  E_ SMALL 
approximately 

SAFE. LARGE 
approximately 

FIRST 

approximately 


approximately 
MACHINE.RADIX 
MACHINE. MAN  I ISSA 
MACHINE.  EMAX 
MACHINE. EMIN 
MACHINE  ROUNDS 


F. Floating  Value 
and  Approximate 
Decimal  Equivalent 


10»(l.l00<MHMF*e-3l 

2.93874E-31) 

lh*ll  7FFF_FC<l*e-32 
1  71)141  E  +  38 

-1<>»()  7FFF.FFK*e*32 
'II41E  +  3H 

Ill'll  7FFF_FF8»e  +  32 
1.70141  E  +  38 


Attribute 


DICITS 

MANTISSA 


EPSILON 

approximately 

SMALL 

rpp  ocimately 

1  r 

pproximatelv 


approximately 


D. Floating  Value 
and  Approximate 
Decimal  Equivalent 


l(v»0  400IMIOOO.(KMKMIOO*e-7 
9.3132257461548E-10 
1h*H  SOOO_INIOOJ)OIKMIOO«*-31 
2  3MH887tl1(>44(>E-38 

Hi'll  FFFF_FFFE.(HHK).IKKI*e*31 
2  1267(>47V22(i55E  *37 


lO'll  KFHMXHKMKHKMKHI'e-Sl 
2 . 43x7 358771 1557  E  -34 
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tS 

H 


Attribute 

D.  Floating  Value 
and  Approximate 

Decimal  Equivalent 

SAFE.LARCE 

10-0  7FFF.FFFF.nono.  001  l*e  + 32 

approximately 

1  70141 18338124E  -3m 

FIRST 

-lo»0  7FFF_FFFF_FFFF.FFS*e  +  32 

approximately 

-1  70141 18346047E  +  38 

LAST 

16*0  7FFF.  FFFF.  FFFF.  FF8*e  +  32 

approximately 

1  70141 1K340047E  -  38 

MACHINE. RADIX 

a 

MACHINE.  MANTISSA 

56 

MACHINE.  EMAX 

127  _ 

MACHINE. EMIN 

-127  . 

MACHINE. ROUNDS 

True  ' 

MACHINE. OVERFLOWS 

T  rue 

C. Floating  Value 

and  Approximate 

Attribute 

Decimal  Equivalent 

DIGITS 

15 

MANTISSA 

51 

EMAX 

21 M 

EPSILON 

16»n.4000_0000_0000.00*e-12 

approximately 

8.881784107001 E-016 

SMALL 

16*0. 8000.0000. 0000.  OO'e-51 

approximately 

1 . 94460227 4332 E -062 

LARCE 

16*0  FFFF. FFFF. FFFF.  E0»e  +  51 

approximately 

2.571 100870814E +  061 

SAFE.EMAX 

1023 

SAFE.SMALL 

16*0. 100tl.t)000_0000_00*e-255 

approximately 

5.562684646268E-30V 

SAFE. LARGE 

16*0  7FFF. FFFF. FFFF.  F0*e  +  256 

approximately 

8  ‘*SS4(>567431 2E  +307 
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.twtth  wwwiin  *  *  fi-Fvw  ww  ww  twjw*  w  >^ui"*rjr**mu*vir»7 


win  wun»  wwwmuwiwmiwiwiwii 


Attribute 

C.  Floating  Value 
and  Approximate 

Decimal  Equivalent 

FIRST 

-K.--II  7FFF. FFFF. FFFF. FC*e*  256 

approximately 

-8  4884|>5(.743I2E  *307 

LAST 

16*0  7FFF. FFFF. FFFF.  FC*e  +  25n 

approximately 

8  4884650743 12E  *307 

MACHINE.  RADIX 

2 

MACHINE.  MANTISSA 

53 

MACHINE. EMAX 

1023 

MACHINE. FMIN 

-1023 

MACHINE. ROUNDS 

True 

MACHINE.  OVERFLOWS 

T  rue 

Ft. Floating  Value 
and  Approximate 

Attribute  Decimal  Equivalent 

DIGITS 
MANTISSA 
EMAX 

EPSILON 

approximately 

SMALL 

approximately 

LARGE 

approximately 

SAFE.EMAX 

SAFE. SMALL 
approximately 

SAFE. LARGE 
approximately 

FIRST 

approximately 
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33 

111 

444 

16*0  4IHK).IHMHI.IKMK).tHI(KI.(KKH1_tHHHt_(MMHI.tl#e-27 
7.70371477754844341222341 17703397EAXI34 

16*0.8tMKMXKXMXXX)JXMXI_IXXXI_0<MXI_tXXXIJ>*e-111 
1  1(XI656821463791821<I93431802<I936E-0134 

16*0  FFFF. FFFF. FFFF. FFFF. FFFF. FFFF. FFFE_0»e  +111 
4 . 5427420268475431  I659332737493IX>0E  +  0133 

16383 

16*<l.1IXKMKKKMKHKI.<HKXI.tXKXI.0<XXI_tXXXI.0*e-4<l95 
8  4( 15 257857781 12337656566445433044  E  -4433 

16*0  7FFF.  FFFF.  FFFF.  FFFF.  FFFF.  FFFF.  FFFF.  0*e*404o 
5  94865747o786158R2542S7966331400E  *  4431 

-10*0  7FFF.  FFFF.  FFFF.  FFFF.  FFF  F_  FFFF.  FFFF.  C*e  +  409(> 
-5  94865747o786l5S82542879h63314IX)£  -  4431 


Attribute 

LAST 

approximately 

MACHl.NE.RAD’ 

M  ACH  IN  E_  MANTISSA 
MACHINE.EMAX 
MACHINE.EMIN 
MACHINF  "'M'NDS 
MAC  Hi  .C  '■  -RFLOWS 


H_  Floating  Value 
and  Approximate 
Decimal  Equivalent 

1(>*0  7FFF_FFFF_FFFF_FFFF_FFFF_FFFF_FFFF_Oe  ♦  4(N<> 
5  04W>5747l>7XM5XX2542X7‘«i<>33140dE-443l 

2 

1 13 
K.3S3 
-l  r>3X3 
T  i  ue 
I  rue 


F.9.4  Attributes  of  Type  DURATION 

The  values  of  the  significant  attributes  of  type  DURATION  are  as 
follows: 


DURATION"  DELTA 
DURATION'  SMALL 
DURATION'  FIRST 
DURATION"  LAST 
DURATION"  LARCE 


1  OOOOOE-04 
2-14 

-131072  oooo 
131071  woo 

!  3  l07l‘X*w3  v#>4X  J375E  *  05 


F.9.5  Implementation  Limits 


Limit  Description 

32  Maximum  number  of  lorm.il  parameters  in  a  subprogram  or  entry 

declaration  that  are  ot  an  unconstrained  record  tipe 

120  Maximum  identifier  length  (number  ol  characters) 

120  Maximum  number  of  characters  in  a  source  line 

245  Maximum  number  of  discriminants  tor  a  record  tvpe 
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Description 


Minimum  numlvr  of  formal  parameters  in  an  entry  or  subprogram 
declaration 

Maximum  numlvr  ot  dimension*  in  on  array  tvjv 

Minimum  numlvr  ot  library  units  and  subunits  in  a  compilation 

i  Insure^ 

Maximum  numlvr  ot  library  units  and  subunits  in  an  execution 


Maximum  numlvr  ot  obit-  ts  declared  with  PSECT_OBJECT  pragma 

Maximum  numlvi  ot  enumeration  literals  in  an  enumeration  tvpe 
definition 

Maximum  numlvr  ot  characters  in  a  value  ot  tin*  predefined  type 

STRIVC. 

Maximum  numlvr  ot  frames  that  an  exception  can  propagate 
Maximum  numlvr  ot  lines  in  a  source  tile 
Maximum  iuimlvr  ot  bits  in  am  nhieit 


The  compilation  closure  ot  a  given  unit  is  the  total  set  ot  unit'*  that  the  given  unit 
depends  on,  directly  and  indirectly 


^The  execution  cloure  of  a  given  unit  is  the  compilation  closuie  plus  .ill  associated 
secondary  units  (library  bodies  and  subunits) 


APPENDIX  C 


TEST  PARAMETERS 

Certain  tests  in  the  ACVC  make  use  of  implementation-dependent 
values,  such  as  the  maximum  length  of  an  input  line  anu  invalid 
file  names.  A  test  that  makes  use  of  such  values  is  identified 
by  the  extension.  TST  in  its  file  name.  Actual  values  to  be 
substituted  are  identified  by  names  that  begin  with  a  dollar 
sign.  A  value  is  substituted  for  each  of  these  names  before 
the  test  is  run.  The  values  used  for  this  validation  are  given 
below. 


None  and  . t ninq 
$BIG_ID1 

Identifier  of  size  MAX_IN_LEN 
with  varying  last  character. 

$BIG_ID2 

Identifier  of  size  MAX_IN_LEN 
with  varying  last  character. 

$BIG_ID3 

Identifier  of  size  MAX_IN_LEN 
with  varying  last  character. 

$BIG_ID4 

Identifier  of  size  MAX_.IN_LEN 
with  varying  last  character. 

$BIG_INT_LIN 

An  integer  literal  of  value  298 
with  enough  leading  zeroes  so 
that  it  is  MAX_IN_LEN  characters 
long. 


Value 

119  A ' s  and  a 
•1' 


119  A ' s  and  a 
'2  ' 


119  A ' s  and  a 
•3'  in  the  middle 


119  A's  and  a 
•4'  in  the  middle 


116  0's  and 
0298 


Name  and  Meaning 


Value 


$BIG_REAL_LIT 

A  real  literal  that  can  be 
either  of  floating  or  fixed 
point  type,  has  value  690.0,  and 
has  enough  leading  zeroes  to  be 
MAX_IN_L£N  characters  long. 

$ BLANKS 

Blanks  of  length  MAX_IN_LEN  -  20 
$CNT_LAST 

value  Of  CNT ' LAST  in  TEXT_I0 
package. 


114  0's  and 
69.0E1 


BLANKS 

2147483647 


$EXTENDED_ASCII_CHARS 

abcdefghijklmnopqrstuvwxyz ! $%?@ [ \] A ' { ) 


A  string  literal  containing  all 
the  ASCII  characters  with 
printable  graphics  that  are  not 
in  the  basic  55  Ada  character 
set. 

$FIELD_LAST 

Value  of  Field 'LAST  in  TEXT_I0 
package. 

$  FI LE_NAME_WI TH_BAD_CHARS 

An  illegal  external  file  name 
that  either  contains  invalid 
characters  or  is  too  long. 

$FILE_NAME_WITH_WILD_CARD_CHAR 
An  external  file  name  that 
either  contains  a  wild  card 
character  or  is  too  long. 

$  GRE ATER_THAN_DURAT I ON 

A  universal  real  value  that  lies 
between  DURATION ' BASE ' LAST  and 
DURATION • LAST  or  any  value  in 
the  range  of  DURATION 

$GRE ATER_THAN_DURATI ON_B AS E_LAS T 
The  universal  real  value  that  is 
greater  than  DURATION ' BASE ' LAST. 


2147483647 

X} ] !@#$~&-Y 


XYZ* 


100^000. 0 


10  000  000.0 


$ I LLEGAL_EXTERNAL_FI LE_NAME 


Illegal  external  file  name 


BAD- CHARACTER* 


Value 


$ I LLEGAL_EXTERNAL_F I LE_NAME2 


MU CH -TOO - LONG -NAME - FOR - A- F I LE -MUCH -TOO -LONG -NAME -FOR- 
A-FILE 

Illegal  external  file  names. 

$INTEGER_FIRST  -2147483648 

The  universal  integer  literal 
expression  whose  value  is 
INTEGER* FIRST. 

$INTLG£R_LAST  2147483647 

The  universal  integer  literal 
expression  whose  value  is 
INTEGER 'LAST. 


$LESS_THAN_DURATION 

A  universal  real  value  that  lies 
between  DURATION ' BASE ' FIRST  and 
DURATION* FIRST  or  any  value  in 
the  range  of  DURATION. 

$LESS_THAN_DURATION_BASE_ FIRST 

The  universal  real  value  that  is 
less  then  DURATION ' BASE ’ FIRST . 

$MAX_DIGITS 

floating-point  types. 

$MAX_I NLEN 

Maximum  input  line  length 
permitted  by  the  implementation. 

SNAME 

A  name  of  predefined  numeric 
type  other  than  FLOAT,  INTEGER, 
SHORT__FLOAT,  SHORT  INTEGER , 

LONG_ FLOAT ,  or  LONG_ INTEGER , 

$NEG_BASED_INT 

A  based  integer  literal  whose 
highest  order  nonzero  bit 
falls  in  the  sign  bit 
position  of  the  representation 
for  SYSTEM. MAX_INT. 

SNON  _ASCI I  CHAR_TYPE 

An  enumerated  type  definition 
for  a  character  type  whose 
literals  are  the  identifier 
NONNULL  and  ell  non-ASCII 
characters  with  printable 
graphics. 


C-3 


-100  000.0 


10  000  000 . 0 


3  3 

120 


SHORT. SHORT  INTEGER 


I64FFFFFFFE* 


< NON  NULL 


APPENDIX  D 


WITHDRAWN  TESTS 


Some  tests  art  withdrawn  from  the  ACVC  because  they  do  not 
conform  to  the  Ada  Standard.  When  testing  was  performed,  the 
following  19  tests  had  been  withdrawn  at  the  time  of 
validation  testing  for  the  reasons  indicated: 

.  B4A010C:  The  object_declaration  in  line  18  follows 

a  subprogram  body  of  the  same  declarative  part. 

.  BC3204C:  The  file  BC3204C4  should  contain  the  body 

for  BC3204CO  as  indicated  in  line  25  of  BC3204C3M. 

C35904A:  The  elaboration  of  subtype  declarations 

SFX3  and  SFX4  may  raise  NUMERI C_ERROR  (instead  of 
CONSTRAINT_ERROR) . 

C41404A:  The  values  of  'LAST  and  'LENGTH  are 

incorrect  in  IF  statements  from  line  74  to  the  end 
of  the  test. 

C48008A:  This  test  requires  that  the  evaluation  of 

default  initial  values  not  occur  when  an  exception 
is  raised  by  an  allocator.  However,  the  Language 
Maintenance  Committee  (LKC)  has  ruled  that  such  a 
requirement  is  incorrect  (AI-00397/01 ) . 

C32114A:  An  unterminated  string  literal  occurs  at 

line  62. 

B33203C:  The  reserved  word  "IS"  is  misspelled  at 

line  45. 

C34018A:  The  call  of  function  G  at  line  114  is 

ambiguous  in  the  presence  of  implicit  conversions 
and  inconsistente  without. 

B37401A:  The  object  declarations  at  lines  126-135 

follow  subprogram  bodies  declared  in  the  same 
declarative  part. 

B45116A:  ARRPRI BL1  and  ARRPRIBL2  are  initialized 

with  a  value  of  the  wrong  type  ( PRI BOOL_TYPE  instead 
of  AAPPRI BOOL_TYPE )  at  line  41. 

B49006A:  Object  declaratives  at  lines  41  and  50  are 

terminated  incorrectly  with  colons;  "END  CASE;"  is 
missing  from  line  42. 


B74101B:  The  "BEGIN"  at  line  9  is  mistaken?  it 
causes  the  declarative  part  to  be  treated  as  a 
sequence  of  statements. 

C87B50A:  The  call  of  "/«"  at  line  31  requires  a 
"USE"  clause  for  package  A. 

C92005A:  At  line  40,  "/*"  for  type  PACK.BIG_INT  is 
not  visible  without  a  "USE"  clause  for  package  PACK. 

C940ACA:  This  test  assumes  that  allocated  task  TT1 
will  run  prior  to  the  main  program,  and  thus  assign 
SPYNUMB  the  value  checked  for  by  the  main  program; 
however,  such  an  execution  order  is  not  required  by 
the  Ada  Standard,  so  the  test  is  erroneous. 

CA3005A. . D  (4  tests):  No  valid  elaboration  order 
exists  for  these  tests. 


END  OF  LIST 


